Select Code to Download

sub generate_random_string {
    my $res = '';
    $res.= chr int rand(26)+96 for 1..8;
    return $res;
}

my $h={};
sub generate_new_unique_random_str{
...
while(exists $h->{$result=generate_random_string()}) {};
return $result;
}