print $html_page->table(
     $html_page->tr(
          map
          {
               $html_page->td($_)
          } ....
     )
);