#!/usr/bin/perl

if(@ARGV != 1) {
	die("BAD USAGE: <(i) filter>\n");
}

my $file;
my %filter;
open($file, $ARGV[0]);
while(<$file>){
	chomp($_);
	$filter{$_}++;	
}

while(<STDIN>){
	my @splittedLine = split(/\t/, $_);
	if(exists $filter{$splittedLine[0]}){
		print $_;
	}
}