Select Code to Download

@in = <INPUTFILE>;
@out = map $_->[0] =>
       sort { $a->[1] <=> $b->[1] }
       map [$_, (split(/\t/))[2]] =>
       @in;