open (in, "<testfile") || die ("Cannot open testfile: $!");
while (<in>){ #Testfile zeilenweise einlesen
$Summe+=$(split(/\t/,$_)[1]) #Jede Zeile splitten und Element 1 zur Variable Summe hinzuaddieren
}
print "\n";
close in;