Select Code to Download

sub by_blanklast
{
     if (!length($a->[0]) ^ !length($b->[0]))
...

     return $a->[0] cmp $b->[0];
}