# Open query file and read into array
$queryfile = $ARGV[0];
open (QUERYFILE, $queryfile) or die "Cannot open query file\n";
@queries = <QUERYFILE>;
close QUERYFILE;

# Open main file
$mainfile = $ARGV[1];
open (MAINFILE, $mainfile) or die "Cannot open searchable file\n";

# Search through main file
while ($inline = <MAINFILE>) {
	@split = split /\t/, $inline;
	$ID = $split[0];
	
	if (grep /$ID/, @queries) {
		print $inline;
		}
		else {
		}
	
	}
	
exit;