Select Code to Download

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

    read_file( $ARGV[0] );

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

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

    map { $_->[1] }