for my $zeile = (@$rows) {
                         next unless $zeile->[0] eq $kdnummer;
                         print join('; ', @{$rows->[$zeile]}), "\n";
                         }