erickn@cosmora01d:/home/erickn> cat xx

use Benchmark qw(:all);

cmpthese (
   10000000, {mifflin => &mifflin, fletch  => &fletch }
);


sub mifflin {
   grep {/6000/} qw(1 2 3 4 5 6000 7 8 9 10);
}

sub fletch {
   grep /6000/, qw(1 2 3 4 5 6000 7 8 9 10);
}


erickn@cosmora01d:/home/erickn> perl xx

             Rate mifflin  fletch
mifflin 5128205/s      --    -19%
fletch  6329114/s     23%      --
[download]