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