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