open(DELETE,$file) or die "$!";

my @delete = <DELETE>;

chomp for(@delete);

close(DELETE);

open(MASTER,$file) or die "$!";
open(OUTPUT,$file) or die "$!";

while(<MASTER>)
{
   my $zip = substr($_, 3, 9);

   if(!deletable(\$zip,\@delete))
   {    
      print OUTPUT, $zip;
   }
}
close(OUTPUT);
close(MATSER);

sub deletable
{
   my ($item,$list) = @_;  

   my $rv = 0;

   foreach(@{$item})
   {
     if($$item eq $_)
     {
        $rv = 1;
        last;
     }
   }
 
  return $rv;
}