sub read_data {
    my @curr = ();              				# aktueller Datensatz

    while (<>) {                				# bricht bei EOF ab
		chomp;
		if ($_ ne '---'){
			@curr = split(/|/,$_);
			$error=$curr[2];
			} else {last;}
    }  
		print $#curr;
return $error;
 }