my @tableCont;
while(***)
{
  push(@tableCont,td(***).td(***));
}

print startform(***),
table(Tr(/@tableTop),Tr(/@tableCont)),
submit(***),end_form);