Select Code to Download

    build_new_array=>q[
        my @a = 1 .. $N;
...
            push @b, $_ if /9/;
        }
    ],

    edit_in_place=>q[
        my @a = 1 .. $N;
...
        }
        $#a=$o-1;
    ],

$ for J in 2 3 4 5 6; do perl 1036631.pl -N=1e$J; done

...
build_new       2.43     25893%         39%         14%         --    
+      -11%
edit_in_place   2.16     29142%         56%         28%        13%    
+        --