my %isAcceptable = map { $_ => 1 } qw( bar baz quux );

if $isAcceptable{$foo} { ... }