open (in, "<testfile") || die ("Cannot open testfile: $!");
while (<in>){ #Testfile zeilenweise einlesen
@array=split(/\t/,$_);
print "@array[0]";
}
print "\n";
close in;