print("Check size of process $$ and press ENTER.");  # 1676K
<STDIN>;

$a .= ' '
   for 1..100_000;

print("Check size of process $$ and press ENTER.");  # 1920K
<STDIN>;

undef $a;
$a .= '!'
   for 1..100_000;

print("Check size of process $$ and press ENTER.");  # 1920K
<STDIN>;