use Time::HiRes (gettimeofday);

my @a = ();

($s1, $mu1) = gettimeofday();


for( my $i = 0; $i < 1000; ++ $i ) {
    push @a, "asdddddddddddddddd";
}


($s2, $mu2) = gettimeofday();
print $#a . "\n";
print (($s2-$s1)*1000000 + $mu2-$mu1) . "\n";
