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

##</code><code>##

my ( $res ) = grep { $array[$_] =~ m/foo/ } 1..$#array;
# versus
my $res = first { $array[$_] =~ m/foo/ } 1..$#array;

__END__

       Rate  grep first
grep  227/s    --  -59%
first 556/s  144%    --