#!/usr/bin/env perl
use strict;
use warnings;
use feature 'say';

my $file_1 =
  "the cat ran up the tree the cat the dog then barked at the cat the cat jumped out of the tree";
my $file_2 = "the cat dog";

my %words;
$words{$_}++ for split / /, $file_1;

say "$_: $words{$_} occurrence(s)" for split / /, $file_2;

__END__

the: 7 occurrence(s)
cat: 4 occurrence(s)
dog: 1 occurrence(s)