# ex_08-2

# Learning Perl on Win32 Systems, Exercise 8.2



print "Enter first number: ";

chomp($first = <STDIN>);

print "Enter second number: ";

chomp($second = <STDIN>);

$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

  }

}