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

##</code><code>##

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