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