my $string="It is a guide to action which ensures that the military always obey the commands of the party";
my %counts;
foreach (split(' ',$string)) {
  $counts{$_}++;
}

foreach (keys %counts) {
  print "Word '$_' occurs $counts{$_} times\n";
}