my @sorted = sort { $b->[1] <=> $a->[1] }
             map  { [ $_, $word_count{$_} ] }
             keys %word_count ;