#ex_08-3
#Learning Perl, Appendix A, Exercise 8.3
sub card {
		@card_map =
			("zero","one","two","three","four",
			"five","six","seven","eight","nine");

		local($num) = @_;
		local($negative);
		if ($num < 0) {
			$negative = "negative ";
			$num = - $num;
		}
		if ($card_map[$num]) {
			$negative . $card_map[$num]; # return value
		} else {
			$negative . $num; # return value
		}
}