my @zeile= split ';', $line;