use Data::Dumper;

@fruits = qw/ MANGO APPLE GRAPES MANGO MANGO MANGO MANGO
              APPLES APPLES BANANA CORN APPLES /;

map { $count{$_}++ } @fruits;

print Dumper(\%count);

##</code><code>##

$VAR1 = {
          'GRAPES' => '1',
          'CORN' => '1',
          'APPLES' => '3',
          'APPLE' => '1',
          'BANANA' => '1',
          'MANGO' => '5'
        };