Select Code to Download

for my $fruit (qw{MANGO APPLES}) {
    print $fruit,
          ' => ',
          scalar( grep { $fruit eq $_ } @fruits),
          $/;
}

my %fruit_count;
$fruit_count{$_}++ for @fruits;
for (qw{MANGO APPLES}) {
    print $_, ' => ', $fruit_count{$_}, $/;
}