@keys = sort {$b->$word_list{$word} <=> $a->$word_list{$word}} values %word_list