my @sortedComplete = map   { $_->[0] } 
                     sort  { $a->[0] <=> $b->[0] } 
                     map   { [ $_, (split /\t/, $_)[3] ]} @complete;
# Do the same for @progress