Select Code to Download

my $passwdkey = 'bob';
my $passcount = 0;
...
alice
bob
hank

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