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