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

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

foreach (sort {$count{$a} <=> $count{$b}} keys %count) {
  print "$_ => $count{$_}\n";
}