use strict;
my @array = <DATA>;
chomp @array;
my %cnt;
$cnt{$_}++ foreach (@array);
print "$_ => $cnt{$_}\n" foreach (keys %cnt);
__DATA__
MANGO
APPLE
GRAPES
MANGO
MANGO
MANGO
MANGO
APPLES
APPLES
BANANA
CORN
APPLES
[download]