$ 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