my @data = (
   [ 12, 'First line of text'  ],
   [ 25, 'Second line of text' ],
   [ 34, 'Third line of text'  ],
);

foreach (@scoreWords) {
   my $re = qr/\b\Q$_\E\b/i;
   foreach (@data) {
      $_[0] += $y while $_[1] =~ /$re/g;
   }
}