sub genkeys {
        map { CODE } 1..shift;
    }

##</code><code>##

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