#! /usr/bin/perl

for (my $i = 0; $i < 100000; $i++) {
    print "{";
    for (my $k = 1; $k <= 200; $k++) {
	print ", " if $k > 1;
	printf "\"k%d\": %d", $k, int(rand(10));
    }
    print "}\n";
}