if ($rows eq "") {goto Rechnungen;} my $REkdnummer = ""; my $REkddatum = ""; my $REkdfirma = ""; my $REkdstrasse = ""; my $REkdhausnummer = ""; my $REkdplz = ""; my $REkdort = ""; my $REkdland = ""; my $REkdansprechpartner = ""; my $REkdtelefon = ""; my $REkdfax = ""; my $REkdemail = ""; $REkdnummer = $rows->[1][0]; $REkddatum = $rows->[1][1]; $REkdfirma = $rows->[1][2]; $REkdstrasse = $rows->[1][3]; $REkdhausnummer = $rows->[1][4]; $REkdplz = $rows->[1][5]; $REkdort = $rows->[1][6]; $REkdland = $rows->[1][7]; $REkdansprechpartner = $rows->[1][8]; $REkdtelefon = $rows->[1][9]; $REkdfax = $rows->[1][10]; $REkdemail = $rows->[1][11]; print "$REkdnummer \n"; print "$REkddatum \n"; print "$REkdfirma \n"; print "$REkdstrasse \n"; print "$REkdhausnummer \n"; print "$REkdplz \n"; print "$REkdort \n"; print "$REkdland \n"; print "$REkdansprechpartner \n"; print "$REkdtelefon \n"; print "$REkdfax \n"; print "$REkdemail \n";