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