my @printable=('a'..'z','A'..'Z','0'..'9'); #### my $tiny=join "",map {$printable[rand(scalar @printable)]} 1..10;