Re^4: Words in Words

[Lotus1]

Sorry, but only comparing words with those that come after it alphabetically doesn't work.

True, but in the solution I posted I sort by length after the alphabetical sort. The alphabetical sort is probably overkill but needed for this particular solution.

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