my @chars = ( "A" .. "Z", "a" .. "z". 0 .. 9 qw( ! @ $ % ^ & *) );

##</code><code>##

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

##</code><code>##

  until ( $_ not in @stored )

##</code><code>##

  while ( $_ in @stored )

##</code><code>##

  $n_found = grep { $pw eq $_ } @stored; 

##</code><code>##

  while ( grep { $pw eq $_ } @stored ) 

##</code><code>##

  $pw = join(@chars[map{rand @chars} (1..17)];
  while ( grep { $pw eq $_ } @stored ) {
    $pw = join(@chars[map{rand @chars} (1..17)];
  }

##</code><code>##

  do {
    $pw = join(@chars[map{rand @chars} (1..17)];
  }
  while ( grep { $pw eq $_ } @stored );