@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";
}

##</code><code>##

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