#! perl -slw
use strict;

print '<file rows="1000000" columns="100" >';
for my $row ( 1 .. 1e6 ) {
    print qq[<row id="$row">];
    print join '', map qq[<col id="$_">${ \int( rand 1000 )}</col>], 1 .. 100;
    print qq[</row>];
}
print '</file>';

__END__
C:\test>junkxml >junk.xml

C:\test>head junk.xml
<file rows="1000000" columns="100" >
<row id="1">
<col id="1">897</col><col id="2">421</col>...
"24">753</col><col id="25">707</col><col i...
 id="47">195</col><col id="48">889</col><c...
><col id="70">450</col><col id="71">779</c...
ol><col id="93">769</col><col id="94">90</...
</row>
...

C:\test>dir junk.xml
02/01/2012  09:45     2,206,994,460 junk.xml