Delete the

       my @sorted
        = map { $_->[0] }
          sort { $a->[1] <=> $b->[1]
                         ||
                 $a->[2] <=> $b->[2]
                         ||
                 $a->[3] <=> $b->[3]
                         ||
                 $a->[4] <=> $b->[4]

               } map { [$_, split(/\./, (split /\s+/, $_)[1] ) ] }
                     @sorted1;

        my @all_rows1 = map { [ split( /\s+/, $_ ) ] }
                   @sorted;
    
print Dumper ( @sorted );
[download]

part completely and dump or print @sorted1, where you have the results you want, but which you then ignore just to rebuild and reuse the same buggy results that you started with.

If it still doesn't work: try to understand and comment each line in the code before using it. You'll definitely get it right by your own! ;)