Select Code to Download

#!/usr/bin/env perl

...
        print join(' ', @{$matrix[$row]}), "\n";
    }
}

ken@titan ~/tmp
$ ./pm_11146491_sort_matrix.pl
...
mis mis mis mis del del
Sorted indices
1 0 4 5 3 2