foreach my $value (%top_words)
[download]

I think you mean reverse( sort keys(%top_words)) there.

Also see perlfaq4 on How do I sort a hash (optionally by value instead of key)?. Your approach loses one of the keys whenever two keys have the same value.