my $in_file = "turtb_detached_train.ambig";
my $in_file2 = "test9STag.txt";
my $gold_standard = "GoldFormat.txt";

my @lines_file1 = ();
my %hash = ();


# einlesen der 1. Datei
open(R_FILEONE,"<$in_file") or die $!;
while(my $line = <R_FILEONE>){
  push(@lines_file1,$line);
}
close R_FILEONE;

# einlesen der 2. Datei
open(R_FILETWO,"<$in_file2") or die $!;
while(my $line = <R_FILETWO>){
  chomp $line;
  $hash{$line} = 1;
}
close R_FILETWO;

# überprüfen, ob die Zeile aus der 1.Datei eine Zahl aus der 2. Datei enthält
foreach(@lines_file1){
  my $check = substr($_,394,16); # Zahl in der langen Zeile raussuchen
  if($hash{$check}){
    $_ = '';
  }
}

# Zieldatei schreiben
open(W_TARGET,">$gold_standard") or die $!;
foreach(@lines_file1){
  print W_TARGET $_ if($_);
}
close W_TARGET;