use strict;
use Time::HR;

my $t_start = gethrtime();
my $MAX = 100000000;
my $i;
my $j;
for ($i=0; $i<$MAX; $i++) {}
my $t_end = gethrtime();
my $iter_time = int(($t_end - $t_start)/1000000);
print $iter_time." ";
