@problem = map [$_, qr/\Q$_/i], @problem;

while (<>) {
    for my $p (@problem) {
        print "line: $. problem: $p->[0]\n" if /$p->[1]/;
    }
}