It does not work with grep, why?.. who knows. The matching is working now, I use your

chomp(my @PatternArray = map { /^\s*$/ ? () : $_ } <DATA>);
[download]

to read my passwd from the text to the array and I using the following to match

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

if (exists $PassValues{$passwordKey}){
my $count = $passwordKey;
$frequency{$count}++;
}
[download]