$a = 'A000000';
while (1) { print $a++,"\n"; }