push @$rows, [qw(kdnummer kddatum kdfirma kdstrasse kdhausnummer kdplz kdort kdland kdansprechpartner kdtelefon kdfax kdemail)];
while(@row = $sth->fetchrow_array){
push @$rows, [$kdnummer , $kddatum, $kdfirma, $kdstrasse, $kdhausnummer, $kdplz, $kdort, $kdland, $kdansprechpartner, $kdtelefon, $kdfax, $kdemail];
                                  }