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