a perl module for creating identifiers with a per digit base