$a = 'A000001';

while (1) {
    print "$a\n";
    $a++;
}

##</code><code>##

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