my ($dokuart,$zahl1,$zahl2) = ( split(/;/,$zeile) )[0..2];