{
	for( 1 .. 100_000 ) {
		$x[ $_ ] = ' ' x 1000;
		undef($x[ $_ ]);
	}
	<STDIN>;
}
<STDIN>;