perl -wlce 'system("ps uch $$");@x=1..1_000_000;print "Elements in \@x: " . @x;; system("ps uch $$");CHECK { system("ps uch $$"); }'
xxx      2554  0.0  1.0  46488 44404 pts/0    R+   18:50   0:00 perl
-e syntax OK