# tie HASH, 'Tie::SortHash', ANON_HASH, SORT_EXPR

tie my %hash, 'Tie::SortHash', {
                                'John Doe'   => 25,
                                'Jane Doe'   => 39,
                                'Jim  Baker' => 30
                               }, q(
                                    my( $c, $d ) = ( $a, $b );
                                    $c =~ s/\w+\s//;
                                    $d =~ s/\w+\s//;
                                    $c cmp $d || $hash{$b} <=> $hash{$a}
                                   );

##</code><code>##

print "$_\t$hash{$_}\n" foreach keys %hash;
<code>
will <b>always</b> produce:
<code>
Jim Baker	30
Jane Doe	39
John Doe	20

##</code><code>##

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

##</code><code>##

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

##</code><code>##

my %people = (
              'John Doe'   => 25,
              'Jane Doe'   => 39,
              'Jim  Baker' => 30
             );

my $sortblock = q(
                  my( $c, $d ) = ( $a, $b );
                  $c =~ s/\w+\s//;
                  $d =~ s/\w+\s//;
                  $c cmp $d || $hash{$b} <=> $hash{$a}
                 );

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