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