use strict;
use CGI qw(:standard);
use CGI::Pretty;

print make_rows(
   [(1)],
   [(1..2)],
   [(1..3)],
);

sub make_rows {
   my $str;
   for (@_) {
      $str .= Tr((
         map { td($_) } @$_
      ));
   }
   return $str;
}