for my $zeile1 (@zeilen) {
        if ( $zeile1->[1] =~ m/20/) {
                #print $zeile1->[0];
                @zweierlevel=splice(@zeilen,$_,1);
        };
};