{
my $i=0 , @X ;
while ( $i < 500000 ) {
push @X , ["a.".$i , "b.".$i , "c.".$i , "d.".$i ] ;
if ($i%10000==0) {printf "Index $i $X[$i][2] \n\n" ;}
$i++ ;
} ;
printf "Max X index Before undef %d\n",$#X ;
sleep 5 ;
undef @X ;
sleep 5 ;
printf "Max X index After undef %d\n",$#X ;
};
sleep 15 ;