if (any { $my1 ne $_ } 'EV-1891', 'EV-DKL1') {
print "BAD";
last;         
}