my $chr = $_; # Naughty, naughty! You used $_ before but I need it now.

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