# attempt at looping
  unless ($_ ne @stored) {
    $pw = join(@chars[map{rand @chars} (1..17)];
  }