#!/usr/bin/perl -w
use strict;
open(EXCLUDES,"<",$ARGV[0]) or die("could not open $ARGV[0]!");

my @excludes = <EXCLUDES>;
chomp(@excludes);
open(LARGE,"<",$ARGV[1]) or die("could not open the $ARGV[1]!");

foreach my $id (@excludes) {
        while (<LARGE>) {
                print if !/$id/;
        }
}


close(EXCLUDES);
close(LARGE);


##</code><code>##

_LARGE_

9999853	5615	4	148656321	
999986	5615	14	94873609	
9999883	5615	4	860669	
9999929	5615	4	73689618	
9999931	5615	4	31286083	
9999944	5615	4	148596445	
999995	5615	10	78405504	
9999963	5615	4	84291761	
9999966	5615	4	5978256	
9999979	5615	4	135953341	

##</code><code>##

_EXCLUDES_

9999853
999986