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