my $string = join '', map $chars rand @chars , 1 .. 100;