It's not random. Not even close. For example, you'll never have three of the same character anywhere in the string.

I don't know if it matters, but it only works if $len <= @set*2