my ($i, $j);
my $k = 15;
for ($i = 1, $j = 0; $i + $j < $k; $j = ++$i - rand 2) {
    print "$i $j\n";
}