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

for $i (0..$#keysorted){
  for $word(keys %{$keysorted[$i]}){
    pritn "$word = $keys[$i]{word}\n";