#!/usr/bin/perl -w

use strict;

my ($set_file, $field) = @ARGV;
@ARGV = ();

defined $set_file or die "usage: $0 set_file [field]\n";

$field ||= 1;
--$field;

my %okay;
open SETFILE, $set_file
	or die "can't open file '$set_file'";
my $line;
while (defined($line = <SETFILE>)) {
	chomp $line;
	undef $okay{$line}; # undef means `yes!'
}

my $value;
while (defined($line = <STDIN>)) {
	chomp $line;
	$value = (split /\t/, $line, -1)[$field];
	exists $okay{$value} and print "$line\n";
}