@word = sort {length($b->[WORD]) <=> length($a->[WORD])} @word;