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

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

##</code><code>##

 } sort by_blanklast map {