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