use strict;

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