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