use IO::Handle;


@ary = ( );
$j = 0;
for($i=1; $i<8000001; $i++) {
     $j += $i;
     $z = IO::Handle->new();
#1#     $z->fdopen(fileno(STDERR), 'w');
#2#     $z->close();
#3#     $z = { };
#4#     $z->{X} = 1;
     push( @ary, $z );
     if( $i % 1000 == 0 ) {
         $t = time();
         STDOUT->autoflush(1);
         print "$t    $i\n";
     }
}