if ($_ eq 'A' || $_ eq 'B' || $_ eq 'C') { }

##</code><code>##

if ({A =>1, B =>1, C =>1}->{$_}) { }

##</code><code>##

if (/^(A|B|C)$/) { }

##</code><code>##

my $chr = $_;
grep { $chr eq $_ } qw( a b c );