Select Code to Download

use Benchmark;

...
        qr:  4 wallclock secs ( 3.78 usr +  0.00 sys =  3.78 CPU) @ 26
+455.03/s (n=100000)

sub testsubqr2{
  my $count = 0;
...
        qr:  4 wallclock secs ( 3.76 usr +  0.00 sys =  3.76 CPU) @ 26
+595.74/s (n=100000)
       qr2:  3 wallclock secs ( 2.98 usr +  0.00 sys =  2.98 CPU) @ 33
+557.05/s (n=100000)