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