open file @some_array = foreach $pattern (@matcharray) { grep {/$pattern/}@some_array }