my ($REkdnummer, $REkddatum, $REkdfirma, $REkdstrasse, $REkdhausnummer, $REkdplz, $REkdort, $REkdland, $REkdansprechpartner, $REkdtelefon, $REkdfax, $REkdemail) = split(/ /,@row);
print "$REkdnummer, $REkddatum, $REkdfirma, $REkdstrasse, $REkdhausnummer, $REkdplz, $REkdort, $REkdland, $REkdansprechpartner, $REkdtelefon, $REkdfax, $REkdemail \n";