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