foreach $line (@array) {
                foreach $pat (@pattern) {
                        if($line =~ /$pat/) {
                                push (@new_array, $line);