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