while (my @data = $sth->fetchrow_array()) {
          print sprintf(qq~<TR>\n<TD><B>%s</B></TD>
                         <TD>%s</TD>
                         <TD>%s</TD>
                         <TD><B>%s</B></TD>
                         <TD><a href="rechnung.cgi?id=%s" target="_blank">%s</a></TD>\n</TR>~,@data[0..3,1,4]);
      }