Select Code to Download

my @sorted = map {$_->[0]}
             sort { $a->[0] <=> $b->[0]
...
             map {chomp;[$_,split(/\t/)]}
             <FILE>;
print OUT "$_\n" for @sorted;