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);
####
80064
80216
####
my @array = 1 .. 10_000;
say size(\@array);
splice @array, 5_001;
say size(\@array);
####
80064
80064