@keys = sort {
           $word_list{$a} <=> $word_list{$b}
        } keys %word_list;