use strict;

my @words = ("one", "two", "123456789012345", "three", "four", "sumofa
+llnumbers", "five", "six", "seven", "eight");
my @sorted_words = sort {length($b) <=> length($a)} @words;
[download]

print join(",", @longest_words);
[download]