my @array = 1 .. 10_000;
say size(\@array);
splice @array, 5_001;
say size(\@array);