while (@data = $STH->fetchrow_array()) 
		{
		my $Kundennummer = $data[0];
		my $Name = $data[1];
		my $Adresse = $data[2];
		my $Telefonnummer = $data[3];
		my $Rechnungsbetrag = $data[4];
		
		print qq§<TR>\n<TD><B>$Kundennummer</B></TD>\n<TD>$Name</TD>\n<TD>$Adresse</TD>\n<TD>$Telefonnummer</TD>\n<TD>$Rechnungsbetrag</TD>\n</TR>\n§;