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

##</code><code>##

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