Select Code to Download

#!/usr/bin/perl

...

my $result = timethese(-10,$test );
cmpthese($result);

Benchmark: running Original, pg for at least 10 CPU seconds...
  Original: 11 wallclock secs (10.86 usr +  0.00 sys = 10.86 CPU) @ 43
+770.26/s (n=475345)
...
            Rate       pg Original
pg        4328/s       --     -90%
Original 43770/s     911%       --