Select Code to Download

use strict;
use warnings;
...
my @sorted_effects = map {$_->[2]} @sorted_transpose;

is_deeply( \@sorted_effects, [qw(mis mis del mis mis del)], 'sort by r
+ow');

use strict;
use warnings; use Test::More tests=>1;
...
                \@transcripts, \@alles, \@effects;

is_deeply( \@sorted_effects, [qw(mis mis del mis mis del)], 'sort by r
+ow');

1..1
ok 1 - sort by row