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;
}

##</code><code>##

sub make_rows {
   @_ = map { Tr((map { td($_) } @$_)) } @_;
   return wantarray ? @_ : join('',@_);
}