$ 
$ cat words.txt
eng
book
shop
writ
$ 
$ 
$ grep eng en.txt | wc -l
1123
$ 
$ grep book en.txt | wc -l
220
$ 
$ grep shop en.txt | wc -l
147
$ 
$ grep writ en.txt | wc -l
176
$ 
$ # The Perl program
$ cat -n word_frequency.pl
     1    #!/usr/bin/perl -w
     2    use strict;
     3    my $wordfile = $ARGV[0];
     4    my $testfile = $ARGV[1];
     5    my %occurrences;
     6    open(WF, "<", $wordfile) or die "Can't open $wordfile: $!";
     7    while (<WF>) {
     8      chomp;
     9      $occurrences{$_} = 0
    10    }
    11    close(WF) or die "Can't close $wordfile: $!";
    12    open(TF, "<", $testfile) or die "Can't open $testfile: $!";
    13    while (<TF>) {
    14      chomp(my $word = $_);
    15      foreach my $k (keys %occurrences) {
    16        $occurrences{$k}++ if $word =~ /$k/
    17      }
    18    }
    19    close(TF) or die "Can't close $testfile: $!";
    20    while (my ($k, $v) = each %occurrences) {
    21      printf("%-10s occurs %5d times\n", $k, $v);
    22    }
$ 
$ # "en.txt" is the file you attached in your post
$ perl word_frequency.pl words.txt en.txt
shop       occurs   147 times
book       occurs   220 times
writ       occurs   176 times
eng        occurs  1123 times
$ 
$