perl splicing array missing entries

Question

I was using splice to cut an array into parts. I am using perl. for the given code below:

my @array = (1..10021);
my @mypart;
my $slice_size = 500;
foreach (@