Select Code to Download

Benchmark::cmpthese(5000, {
   'outside' => sub { 
...
         Rate  inside outside
inside  120/s      --    -13%
outside 138/s     15%      --

for(my $i = 64; $i < (scalar(@rddt) - (2 * $pond)); $i++){

@rddt = (1) x 1000;
$pond = 32;
...

inside  273/s      --    -39%
outside 450/s     65%      --