my @dictionary =(lots o words);
print start_table();
while(@words = elements(@dictionary, $columns)){
      print Tr(td([@words]));
}
print end_table();