Select Code to Download

# Takes a number of columns then a list.  Reformats the list into
# an array of arrays, with the original elements sorted down by
...
  }
  return @ret;
}

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

# Takes a number of columns then a list.  Reformats the list into
# an array of arrays, with the original elements sorted down by
...
  }
  return @ret;
}