#!/usr/bin/perl

use strict;
use warnings;

use CGI;

my $q = CGI->new;

my $x = $q->param('x');
my $y = $q->param('y');

exit if $x <= 0 or $y <= 0 or $x + $y > 10_000;

print $q->header('text/text');

print '[';
for ( 1 .. $y ) {
    print '[';
    print join ",", map{ sprintf q~"%03i"~, int rand 1_000 } 1 .. $x;
    print '],';
}
print ']';