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