You are counting in base 36. So, you can use Math::Base36, e.g.

#!/usr/bin/perl -l

use Math::Base36 qw/encode_base36/;

print lc encode_base36($_,3) for 0..(36**3-1);
[download]