my $elem = @chars; $salt = join '', @chars[rand($elem), rand($elem)];