#!/usr/bin/perl -w

use strict;

my $trunc = 1;
my $tap = 'A';
my $tapoftap = 1;
my ($x, $y, $z);

for $x (1..20) {
	for $y (1..10) {
		for $z (1..10) {
		        print "T$trunc$tap$tapoftap\n";
		        $tapoftap++;
		}
		$tapoftap =1;
		$tap++;
	}
	$trunc++;
	$tap = 'A';
}