Select Code to Download

for( my $i = 0; $i < @array; ++i ) {
   ...;
}

cmpthese -1,{
    a=>q[
...
a 5.81/s   -- -41%
b 9.84/s  69%   --
[0] Perl>