If you supply an arrayref to CGI's tr method, it will take each element inside that arrayref to be a distinct row, so you need to remove the [ and ]...

print $query->table(
  $query->Tr(
    $query->td({width=>"15%"}, "1"),
    $query->td(                "2"),
  ),
);
[download]

The reason for this is so that you can build rows iteratively, and later pass them to tr and have it (ymmv) Do The Right Thing^(tm)...

my @rows;
foreach my $no (qw( one two three )) {
  push @rows, $query->td( $no );
}

print $query->table( $query->Tr( \@rows ) );
[download]

    --k.

Or, replace the comma in the anonymous array with a concentation operattor '.' . That way, both td()s will comprise one "element" in the array, thus, one table row with two columns. (Here I go learning something as I post again - imagine that.)

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

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