use strict;
use Integer;
use Time::HR;

my $array = [];
my $t_start = gethrtime();
my $MAX = 1000000;
my $i;
for ($i=0; $i<$MAX; $i++) {
  my $J = Integer->new(0);
}
my $t_end = gethrtime();
my $create_time = int(($t_end - $t_start)/1000000);
print $create_time." ";
