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


##</code><code>##

    read_file( $ARGV[0] );
    

##</code><code>##

    map { [(split /\s+/)[1], $_] }
    

##</code><code>##

    sort { $a->[0] <=> $b->[0] }
    

##</code><code>##

    map { $_->[1] }