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