if(open FILE, '<' .$file) {
	while (<FILE>) {
		my ($datafile, $value)= split ';' , $_;
		if (my $value < "1") {
			push @errors, "Es wurden $value extents in $datafile verursacht ($!)\n";
		} else {
			push @errors, "es wurden keine extents verursacht ($!)\n";
		}
	}
	close FILE;
}
else {
	push @errors, "File $file konnte nicht geöffnet werden ($!)\n";
}