for my $word (@scoreWords) {
  my $qmword = quotemeta($word);
  my $regexp = qr/\b$qmword\b/;
  for my $scorebit (@scorearray) {
    $scorebit->{'score'} += 1 if $scorebit->{'text'} =~ $regexp;
  }
}