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