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