### create a hash
my %fruit_num = ( apple => 3,
                  bananas => 1,
                  oranges => 2,
                  );


### promp the user to enter a key
### use the input to display the value with that key.

print "Which fruit do you wish to query? ";
my $fruit = <STDIN>;
my $fruits = $fruit_num{$fruit};

chomp $fruit;

print "Number of" . $fruit . " is " .  $fruits . "\n";