print "<tr>";
for (my $i = 0; $i<@values; $i++)
{
  if (($i % scalar(@column_names)) == 0)
  {
    print "</tr>\n<tr>";
  }
  print "<td>$values[$i]</td>\n";
}
print "</tr>";