chomp (my @words = sort { length($a) <=> length($b) } sort );