à la Schwartz...

use warnings;
use strict;


use File::Slurp qw(read_file);

print map      { $_->[1] }
      sort     { $a->[0] <=> $b->[0] }
      map      { [(split /\s+/)[1], $_] }
      read_file( $ARGV[0] );
[download]