my $found = 0;
for (@lines) {
    my (undef, undef, $theName, $thePass) = split;
    if ($theName eq $name && $thePass eq $pass) {
        $found++ and last;
    }
}

# check for value of $found, etc, etc