#! 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";
}

##</code><code>##

14:35 >perl 1055_SoPW.pl
Which fruit do you wish to query?
apples
Number of apples is 3

14:35 >perl 1055_SoPW.pl
Which fruit do you wish to query?
guavas
No data for fruit 'guavas'

14:36 >