Select Code to Download

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

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

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