$a = 'A000001';

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