my %want;
while(<$name_infh>) {
   chomp;
   $want{$_}++;
}
while (my $line = <$haystack_infh>) {
    my ($test_name, $payload) = split /\t/, $line, 2;
    if (exists $want{$test_name}) {
        delete $want{$test_name};
        print "We have a winner: $test_name => $payload";
        last if ! keys %want;
    }
}