for(@test_array){print "MATCHED\n" if $_ =~ $test3 && next;
print "NO MATCH\n";} #untested