use strict;
use warnings;

my $text = "and him him lad has him done and john has has";
my %words;

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