my %look_for = map { $_ => 1 } qw( a b ... );
if ( $look_for{ $var } ) { }