Select Code to Download

          Rate   myfirst   first
myfirst  875/s       --     -83%
first   5236/s      498%     --

my ( $res ) = grep { $array[$_] =~ m/foo/ } 1..$#array;
# versus
...
       Rate  grep first
grep  227/s    --  -59%
first 556/s  144%    --