open BIN, '>:raw', 'tmp/2010.168.bin';;

for my $y ( 0 .. 2889 ) { 
    print $y; 
    for my $x ( 0 .. 4587 ) { 
        printf BIN "%s", pack 'V*', map int( rand 2**32 ), 1..7; 
    } 
};;

close BIN;;