Look at using a Schwartzian Transform:

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

_______________
DamnDirtyApe

Those who know that they are profound strive for clarity. Those who
would like to seem profound to the crowd strive for obscurity.
            --Friedrich Nietzsche