Help for this page

Select Code to Download


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