system "ps axl | head -1";
my @x; $x[1_000_000] = undef;
system "ps axl | grep $$";
undef @x;
system "ps axl | grep $$";