$foo = 'X' x 100000000;
getc;
undef $foo;
getc;
$foo2 = 'X' x 100000000;
getc;