#/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);