Select Code to Download

sub sortmatrix(){
    for (my $i=0; $i<=$#matrix;$i++){
...
    
    }

@sorted = sort {
    $b->[1] <=> $a->[1] ||
        $b->[2] <=> $a->[2] ||
...
use Data::Dumper;
print Data::Dumper->Dump([ \@sorted ],[ qw/ *matrix / ]),"\n";

@sortedmatrix = (
                  [
...
                    'A'
                  ]
                );