if (any(qw(A B C)) eq $foo) { print 'FOO' }