$pw = join '', map { $chars[ rand @chars ] } 1..17;