Select Code to Download

#/usr/bin/perl
use warnings;
...
    oneE9 => sub { for( 1 .. 1e9 ) {} },
});
cmpthese($r);

     oneE5: 63.876 wallclock secs (63.43 usr +  0.20 sys = 63.63 CPU) 
+@ 140.81/s (n=8960)
     oneE6: 63.7849 wallclock secs (63.09 usr +  0.23 sys = 63.32 CPU)
+ @ 14.17/s (n=897)
...
oneE6     14.2/s  104829%    9738%     896%       --     -90%
oneE5      141/s 1042910%   97688%    9798%     894%       --