#!/usr/bin/perl
  
  if(@ARGV != 1) {
  	die("BAD USAGE: <(i) filter>
  ");
  }
  
  my $file;
  my %filter;
  open($file, $ARGV[0]);
  while(<$file>){
  	chomp($_);
  	$filter{$_}++;	
  }
  
  while(<STDIN>){
  	my @splittedLine = split(/\t/, $_);
  	if(exists $filter{$splittedLine[0]}){
  		print $_;
  	}
  }