Select Code to Download

if:    ($var eq "A" || $var eq 'B' || $var eq 'C')
ihash: { A=>1, B=>1, C=>1 }->{$var}
...
re    1392243/s  315%    --  -20%  -28%
if    1744756/s  420%   25%    --   -9%
shash 1920959/s  473%   38%   10%    --

use strict;
use warnings;
...
      }
   }
}

>perl -v

...
re    1452770/s  333%    --  -17%  -26%
if    1747118/s  420%   20%    --  -11%
shash 1967719/s  486%   35%   13%    --