ok( grep { $var1 eq $_ } qw[ a b ] , 'test name' );