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