#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";
}