Select Code to Download

$a = 'A000001';

...
    print "$a\n";
    $a++;
}

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