perl -we 'for (0 .. $ARGV[0]) { my $y = 1; my $x = \$y; $x = [$x] for 0 .. 1000; $y = $$x[0]; }; system "ps u $$"' 1000