# ex_08-2 # Learning Perl on Win32 Systems, Exercise 8.2 print "Enter first number: "; chomp($first = ); print "Enter second number: "; chomp($second = ); $message = &card($first) . " plus " . &card($second) . " equals " . &card($first+$second) . ".\n"; print "\u$message"; sub card { my %card_map; @card_map{1..9} = qw( one two three four five six seven eight nine ); my($num) = @_; if ($card_map{$num}) { $card_map{$num}; # return value } else { $num; # return value } }