#!/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);