http://www.perlmonks.org?node_id=1197777
Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Hi,

I am sure this is completely trivial (or at least there are some neat tricks for doing this).

I need to enumerate (starting from an arbitrary point) four characters, each of which can be any of [0-9a-z]. So each character goes 0,1,2,3,4,5,6,7,8,9,a,...x,y,z at which point it goes back to 0, and the character to the immediate left is incremented.

This is not difficult to do the brute force way (with a lot of nested if statements), but I am sure there has to be a better method.