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

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

print "Which fruit do you whish to query? ";
my $fruit = <STDIN>;
chomp $fruit;

my $fruits = $fruit_num{$fruit};

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