Select Code to Download

 perl -e 'foreach my $foo ("1", "A1", "AA", "A001", "A009", "A999", "Z
+", "AZ", "ZZ", "Z999") { my $bar= $foo; print "$bar++ = ";  $bar++; p
+rint
$bar , "\n"; }'