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