sort {  !length($a->[0]) <=> !length($b->[0])
    ||  $a->[0] cmp $b->[0]  }