Select Code to Download

use strict;
use warnings;
...
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