## assuming
   my %hash = (
       John => 20, Bill => 34, # etc...
   );

   ## sort by name(key):
   foreach my $name ( sort keys %hash ) {
      print "$name: $hash{$name}\n";
   }

   ## sort by number(value):
   foreach my $name ( sort { $hash{$a} <=> $hash{$b} } keys %hash ) {
      print "$name: $hash{$name}\n";
   }
[download]