#! perl
use strict;
use warnings;

my %fruit_num =
(
    apples  => 3,
    bananas => 1,
    oranges => 2,
);

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

if (exists $fruit_num{$fruit})
{
    my $fruits = $fruit_num{$fruit};
    print "Number of $fruit is $fruits\n";
}
else
{
    print "No data for fruit '$fruit'\n";
}