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§;