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

foreach $word (@words) {
  print "word $word = $word_list{$word}\n";
}