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