open(PFILE, "Activatepasswords.txt")|| die "Cannot open patterns1.txt file"; my 
@PatternArray=<PFILE>; 
close(PFILE);
pop @PatternArray if $PatternArray[-1] eq "\n";
@PatternArray = grep /\s/, @PatternArray;

##</code><code>##


my $passwordKey = $pass1;

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

##</code><code>##

my %PassValues;
@PassValues{@PasswordsArray}=();

if (exists $PassValues{$passwordKey}){
print "count\n";
my $count = $passwordKey;
$frequency{$count}++;
}
else {
print "Not count\n";;
}