my $table = [
   [ 'row 1, col 1', 'row 1, col 2', ],
   [ 'row 2, col 1', 'row 2, col 2', ],
];

{
   my $table_body = ''
   foreach (@$table) {
      my $row_body = '';
      foreach (@$_) {
         $row_body .= $q->td($_);
      }
      $table_body .= $q->tr($row_body);
   }
   print($q->table($table_body));
}