my @chars = ("A".."Z", "a".."z"); my $string; $string .= $chars[rand @chars] for 1..8;