#! perl -slw
use strict;
use Math::Random::MT qw[ rand ];

for ( 1 .. 8400 ) {
    print join ',', map 1e5 + int( rand 9e5 ), 1 .. 17000;
}

__END__
[11:04:48.11] C:\test>885103 > junk.dat

[11:12:10.44] C:\test>dir junk.dat
30/01/2011  11:12       999,608,400 junk.dat