if $foo eq 'bar' or $foo eq 'baz' or $foo eq 'quux' { ... }

##</code><code>##

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

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