G'day TJCooper,

I got to this thread rather late. I'm unclear as to what happened with deletes and updates in your OP. Given what's there at the moment, this technique should do what you want: 

#!/usr/bin/env perl -l

use strict;
use warnings;

use Inline::Files;

my %found;
/^>(.*)\Z/ and $found{$1} = 0 while <REFERENCE_FILE>;
my $re = '\b(' . join('|' => keys %found) . ')\b';

while (<SEARCH_FILE>) {
    ++$found{$1} while /$re/g;
}

print "$_ occurs: $found{$_}" for sort keys %found;

__REFERENCE_FILE__
>Apple
ignored blah blah blah
>Banana
ignored blah blah blah
>Grape
ignored blah blah blah
__SEARCH_FILE__
Apple Banana Avocado Orange
Grape Apple
Apple Banana Banana

[download]

Output:

Apple occurs: 3
Banana occurs: 3
Grape occurs: 1

[download]

I've used Inline::Files for demonstration purposes. You'll need to open your real files. I recommend you read the documentation and get into the habit of using the 3-argument form with lexical filehandles. Furthermore, if you're not going to write code to check your I/O, you should consider using the autodie pragma.

-- Ken

In reply to Re: Loading words from one file, searching another for the frequencies of these words and outputting the wordcounts to another file by kcott
in thread Loading words from one file, searching another for the frequencies of these words and outputting the wordcounts to another file by TJCooper

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.