P:\test>perl -e"
{ 
    for( 1 .. 100_000 ) { 
        $x[ $_ ] = ' ' x 1000; 
        $x[ $_ ] = undef; 
    } 
    <STDIN>; 
} 
<STDIN>;"

##</code><code>##

P:\test>perl -e"
{ 
    my @x; 
    for( 1 .. 100_000 ) { 
        $x[ $_ ] = ' ' x 1000; 
        $x[ $_ ] = undef; 
    } <STDIN>; 
} 
<STDIN>;"