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

##</code><code>##

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

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