I guess what you wanted to do was

print $query->table(
          $query->Tr(
              $query->td([1, 2])
          )
);
[download]

Still this way you cannot specify {width => "15%"} for one of the cells. So the best way to do it is the one Kanji suggest above.

$|=$_="1g2i1u1l2i4e2n0k",map{print"\7",chop;select$,,$,,$,,$_/7}m{..}g