my $passwdkey = 'bob';
my $passcount = 0;
while (<DATA>) {
   chomp;
   if ($_ eq $passwdkey) {
      $passcount++;
      print "ok\n";
   }
}
print "final '$passwdkey' count = $passcount\n";
__DATA__
ted
bob
carol
alice
bob
hank

##</code><code>##

my $passcount = grep {$_ eq "$passwdkey\n") <DATA>;