Minor improvement over a couple of the solutions provided:

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

(to some, anyway)

                - tye