#ex_08-1 #Learning Perl, Appendix A, Exercise 8.1 sub card { @card_map = (0,"one","two","three","four", "five","six","seven","eight","nine"); local($num) = @_; if ($card_map[$num]) { $card_map[$num]; # return value } else { $num; # return value } } # driver routine: while (<>) { chop; print "card of $_ is ", &card($_), "\n"; }