my $tableList = map qr/$_/i,
                join '|',
                map quotemeta,
                @tableList;

for my $Q (@fileList) {
   push @tableUsed, $Q =~ /$tableList/g;
}