in reply to Re: Matching values in arrayin thread Matching values in array
print "XXXXXX has appeared ", scalar grep(m/XXXXXX/, @PatternArray), " times.\n"; ... my $count = scalar grep m/XXXXXX/, @PatternArray; [download]
chomp(my @PatternArray = map { /^\s*$/ ? () : $_ } <DATA>); [download]
my %PassValues; @PassValues{@PasswordsArray}=(); if (exists $PassValues{$passwordKey}){ my $count = $passwordKey; $frequency{$count}++; } [download]