Select Code to Download

# tie HASH, 'Tie::SortHash', ANON_HASH, SORT_EXPR
...
                                    $d =~ s/\w+\s//;
                                    $c cmp $d || $hash{$b} <=> $hash{$
+a}
                                   );

print "$_\t$hash{$_}\n" foreach keys %hash;
<code>
...
Jim Baker    30
Jane Doe    39
John Doe    20

foreach ( sort keys %hash ) {
...
}

(tied %hash)->newsortblock( q($b cmp $a) );

my %people = (
              'John Doe'   => 25,
...
                 );

tie %people, 'Tie::SortHash', { %people }, $sortblock;