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