use Time::HiRes qw(gettimeofday tv_interval);

my @array = (1..100);

my $t0 = [gettimeofday];

for (1..10000)
{
   my @array2 = @array;
}

say tv_interval($t0);