my @res = ( qr/this/, qr/that/, ..., qr//);
my @matches;

for each row $row:
  for my $i (0..$#res) {
    if ($row =~ m/$res[$i]/) {
      $matches[$i]++;
      last;
    }
  }