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