%_=();
print sort { %_{ $a } ||= SortKey( $a )
         <=> %_{ $b } ||= SortKey( $b ) } <>;
sub SortKey { my @a=split /\t/, shift(); $a[1]; }
[download]

PerlMonks graciously bestowed by Tim Vroom.
PerlMonks somehow became entangled with The Perl Foundation.
Beefy Boxes and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.