@titlewords = @new;  #switch the @new array back to the name @titlewords now that the exceptions are in place

 my $desired = 5;      # Desired matching number of words

 my $matched = 0;       # Why is this set to 0? How does it change during the comparison

 foreach my $csv2 (keys %csv2hash) {

    my $count = 0;    #Again why is this set to 0 at this point? I can see that it's used later and compared to $desired, but how does it increase in size past 0 during the operation?

    my $value = $csv2hash{$csv2};  # How does this represent the value? There doesn't seem to be any code which counts the words here?

    foreach my $word (@titlewords) {

            my @matches   = ( $value=~/\b$word\b/ig );

            my $numIncsv2 = scalar(@matches);

            @matches      = ( $title=~/\b$word\b/ig );

            my $numIncsv1 = scalar(@matches);

            ++$count if $value =~ /\b$word\b/i;

            if ($count >= $desired || ($numIncsv1 >= $desired && $numIncsv2 >= $desired)) {
                $count = $desired+1;

                last;

            }

    }

    if ($count >= $desired) {

      print "$csv2\n";

      ++$matched;

    }

  }
print "$_\n\n" if $matched;
}                                                                                                                close CSV1;