foreach my $key (sort (values(%hash))) {
  print "$key $hash{$key}\n";