my @alternatives = qw(a b etc); # add more by just typing them
if (grep {$_ eq $var} @alternatives) {}