my $passwordKey = $pass1;

if (grep($_ eq $passwordKey, @PasswordsArray)){
  print "ok\n";
  my $count = $passwordKey;
  $frequency{$count}++;
 }