use strict;
use warnings;
use feature qw(say);
use Devel::Size qw(size);

my @array = 1 .. 10_000;
say size(\@array);
$#array = 5_000;
say size(\@array);