foreach $key (sort keys %h) { 
   print "$key: $h{$key}\n"; 
}