Select Code to Download

use List::MoreUtils qw( any );

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

Compilation tests

...
re    1994574/s 1341%  215%   67%    --   -8%  -46%
if    2157141/s 1459%  240%   81%    8%    --  -42%
shash 3709584/s 2580%  485%  211%   86%   72%    --