#/usr/bin/perl
use warnings;
use strict;
use Benchmark qw(:hireswallclock timethese cmpthese);

my $r = timethese( -60 , {
    oneE5 => sub { for( 1 .. 1e5 ) {} },
    oneE6 => sub { for( 1 .. 1e6 ) {} },
    oneE7 => sub { for( 1 .. 1e7 ) {} },
    oneE8 => sub { for( 1 .. 1e8 ) {} },
    oneE9 => sub { for( 1 .. 1e9 ) {} },
});
cmpthese($r);

##</code><code>##

     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)
     oneE7: 63.6703 wallclock secs (63.05 usr +  0.21 sys = 63.26 CPU) @  1.42/s (n=90)
     oneE8: 62.9542 wallclock secs (62.30 usr +  0.20 sys = 62.50 CPU) @  0.14/s (n=9)
     oneE9: 74.5811 wallclock secs (73.81 usr +  0.26 sys = 74.07 CPU) @  0.01/s (n=1)
            (warning: too few iterations for a reliable count)
            Rate    oneE9    oneE8    oneE7    oneE6    oneE5
oneE9 1.35e-02/s       --     -91%     -99%    -100%    -100%
oneE8    0.144/s     967%       --     -90%     -99%    -100%
oneE7     1.42/s   10438%     888%       --     -90%     -99%
oneE6     14.2/s  104829%    9738%     896%       --     -90%
oneE5      141/s 1042910%   97688%    9798%     894%       --