$count=0;
my $file1="38579.txt";
my @a;
my @neu1;
my $in;
my $datei;

open ($in, "<", $file1) or die "Datei $file1 existiert nicht\n";
while (<$in>){
     chomp ($_);
     @a=split (/\t/, $_); 
     push (@neu1, "$a[1]\t$a[12]\n");
}
close ($in);

while ($count <=$#neu1){
$count++;
}
$count--;

open ($datei, ">", "38579neu.txt");
print $datei "no. entries: $count\n\n";
    foreach (@neu1){
    print $datei $_;
}
close ($datei);

$count=0;
my $file2="38943.txt";
my @b;
my @neu2;
my $in2;
my $datei2;

open ($in2, "<", $file2) or die "Datei $file1 existiert nicht\n";
while (<$in2>){
     chomp ($_);
     @b=split (/\t/, $_); 
     push (@neu2, "$a[1]\t$a[12]\n");
}
close ($in2);

while ($count <=$#neu2){
$count++;
}
$count--;

open ($datei2, ">", "38943neu.txt");
print $datei2 "no. entries: $count\n\n";
    foreach (@neu2){
    print $datei2 $_;
}
close ($datei2);