#!/usr/bin/perl -w
use strict;

$a = 0;

while ($a < 5) {
    print ++$a, "\n";
    for $b (1..10) {
        print "$a $b\n";
    }
    for $b (11, 12) {
        print "$a $b\n";
    }
}

print "done\n";