my @entries = (... 50 or 60 things...);
print "<table etc etc>";
while (@entries) {
  my @row_entries = splice @entries, 0, 5;
  print "<tr etc etc>";
  for (@row_entries) {
    print "<td etc etc>";
    process $_;
    print "</td>";
  }
  print "</tr>";
}
print "</table>";