join '' => map $chr[rand @chr], (1) x (5 + rand 10);