use Time::HiRes qw(gettimeofday tv_interval);

my @array = (1..100);
# say "@array"; # 0.332776 s
# say @array;   # 0.052496 s
# #<nothing>    # 0.052361 s

my $t0 = [gettimeofday];

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

say tv_interval($t0);