Select Code to Download

#!/usr/bin/perl
use warnings;
...
    my $thenumber = $fruit{$thefruitsname};
    print "the number of $thefruitsname is $thenumber\n";
}