sub rndlc{local$"=''; "@{[map{chr(97+int rand 26)} 1 .. shift]}" } print rndlc 20; hgvuemeeezgjwbzjmgezo