Select Code to Download

use strict;
use warnings;
...
++$freq{$_} for split /\s+/, $words;

print "$_: $freq{$_}\n" for sort {$freq{$b} <=> $freq{$a}} keys %freq;

on: 5
to: 5
...
i'd: 1
eventually: 1
mostly: 1