my @sortedComplete = map   { 
                         join "\t", (split/\t/)[1,2,3,0]
                     }
                     sort 
                     map   { 
                         join "\t", (split/\t/)[3,0,1,2]
                     } @complete;
# Do the same for @progress