title: How can I display data in table with Perl?
body: <p>I am getting data from a database.  It has 4 rows and 6 columns. I want to show this in an HTML table but am having problems.  I've made the TH for the 6 columns.  However, I am having problems in displaying the 4 rows.  This is what I have so far:</p>
  
  <pre><code>while (($f1, $t2, $n3, $k4, $d5, $e6) = $sth1-&gt;fetchrow_array)
  {
          push (@first, $f1);
          push (@second, $t2);
          push (@third, $n3);
          push (@fourth, $k4);
          push (@fifth, $d5);
          push (@sixth, $e6);
  }
  </code></pre>
  
  <p>@first, @second...and others are arrays</p>
  
  <p>While dsplaying data if I do:</p>
  
  <pre><code>foreach (@first)
  {
          print "&lt;td&gt;$_&lt;/td&gt;";
  }
  </code></pre>
  
  <p>That is displaying data vertically but I want it to display horizontally.</p>