foreach my $row (reformat_major_minor(3, @cells)) {
  print "<tr>\n", (map "  <td>$_</td>\n", @$row), "</tr>\n";
}