my @characters; push @characters, chr(int(rand() * 16777215 + .5)) for 1..10; my $salt = join('', @characters);