#!/usr/bin/perl
use strict;
my %fruit = (
    "banana" => 3,
    "lemon" => 5,
    "pineapple" => 9,
);
print "What kind of fruit: ";
my $type = <STDIN>;
chomp $type;
if (defined $fruit{$type}) {
    print "There are $fruit{$type} ${type}s left.\n";
}
else {
    print "We don't have any ${type}s.\n";
}