foreach $line (@array) {
    foreach $pat (@pattern) {
        if ($line =~ m/$pat/) {
            print $line;
        }
    }
}