my $string = join '',map {splice(@chars,rand @chars,1)} 1..26;