Select Code to Download

use strict;
use warnings;
...

++$words{$_} for split /\s+/, $text;
print "$_: $words{$_}\n" for sort keys %words;

and: 2
done: 1
...
him: 3
john: 1
lad: 1