@pairs = sort { $a->[1] <=> $b->[1] } 
           map { [ $_ => $word_list{$_} ] }
             keys %word_list;
print "word $_->[0] = $_->[1]\n" for @pairs;