Select Code to Download

$ perl -Mstrict -Mwarnings -E '
my $passes = {
...
t2
t5
$

   sort {
           $a->[ 1 ] <=> $b->[ 1 ]
           ||
           $a->[ 1 ] ? 0 : $a->[ 2 ] <=> $b->[ 2 ]
        }

   sort {
           $a->[ 1 ] <=> $b->[ 1 ]
           ||
           ( $a->[ 1 ] ? 0 : $a->[ 2 ] <=> $b->[ 2 ] )
        }