Select Code to Download

    my $o= 0;
    for my $i (  0..$#$av  ) {
        if(  should_keep($i)  ) {
...
        }
    }
    $#$av= $o-1;

#!/usr/bin/perl -w
use strict;

...
whl  2610/s   -- -63% -78%
for  7049/s 170%   -- -41%
one 11986/s 359%  70%   --