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

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

##</code><code>##


print startform(***),
table(Tr(/@tableTop),Tr(/@tableCont_1)),
table(Tr(/@tableTop),Tr(/@tableCont_2)),
table(Tr(/@tableTop),Tr(/@tableCont_3)),
submit(***),end_form);

##</code><code>##

while($i<30)
{
  $i++
  push(@tableCont[i%10],td(***).td(***));
}