@b = sort { length $b <=> length $a } @a;

##</code><code>##

    @b = sort { length $b <=> length $a 
                           ||
                       $a cmp $b
              } @a;