my $sessid = join("", @chars[ map { rand @chars } (1 .. 20) ]);