hey dear monks

here a simple snippet of my newbie app..
enjoy and correct it please.

@validi=qw/a b c d e f g  h i m n p q r s t u v z 1 2 3 4 5 6 7 8 9 1 
+2 3 4 5 6 7 8 9 * * * *  + + + +  - - - - A B C D E F G H L M N P Q R
+ S T U V Z/;
@validibis=qw/a . . . . . . , , , , , , : : : : : :  ; ; ; ; ; ; b c d
+ e f g  h i m n p q r s t u v z 1 2 3 4 5 6 7 8 9 1 2 3 4 5 6 7 8 9 *
+ * * *  + + + +  - - - - A B C D E F G H L M N P Q R S T U V Z/;

$quantibis=@validibis;
$quanti=@validi;

$ran=int(rand($quanti));
$pwd=$validi[$ran];

foreach(1,2,3,4,5)
{
 $rand=int(rand($quantibis));
 $pwd.=$validibis[$rand];
}

$ran=int(rand($quanti));
$pwd.=$validi[$ran];

print "La password per te creata è:\t$pwd";
[download]

cheers from sunny roma lor*