sub remove_x99 {
  my @dead_list = shift;
  my @get_list  = shift;

###REMOVE TARGET X99 ENTRIES FROM DEAD_lIST

  print Dumper\@dead_list;
  print Dumper\@get_list;

 my %lookup;
 my @result;
 @lookup{@get_list} = ();
print Dumper \%lookup;
 foreach my $elem (@dead_list) {
 push(@result, $elem) unless exists $lookup{$elem};
}

  print Dumper\@result;

}