for my($k, $v) (map +($_, $h{$_}), sort keys %h) {
  say "$k => $v";
}