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