(perl) Generate random POE acronyms