while ($ch = splice(@chars, rand(@chars), 1)) { print "$ch"; }