use List::MoreUtils qw( any );

   my $test_any = q{
      my $rv = any { $var eq $_ } qw/ A B C /;
   };

   my $test_grep = q{
      my $rv = grep { $var eq $_ } qw/ A B C /;
   };