$ perl -s -e'
 sub mymem { system("ps -q $$ -o vsz") };
 mymem();
 $#a = $size;
 mymem();
 $a[$_]=0 for 0..$#a;
 mymem()
' -- -size=1e7
   VSZ
 18724
   VSZ
 96852
   VSZ
333528
$ perl -s -e'
 sub mymem { system("ps -q $$ -o vsz") };
 mymem();
 $#a = $size;
 mymem();
 $a[--$size]=0 while $size;
 mymem()
' -- -size=1e7
   VSZ
 18724
   VSZ
 96852
   VSZ
333528
$ perl -E'say $^V'
v5.24.1

##</code><code>##

$ perl -s -e'
 sub mymem { system("ps -q $$ -o vsz") };
 mymem();
 $#a = $size;
 mymem();
 map {$_} 0..$#a;                       
 mymem()
' -- -size=1e7
   VSZ
 18724
   VSZ
 96852
   VSZ
573664