my @th = "col1" .. "col3";
my @values  = "val1" .. "val6";
my @td;
push @td, [ splice @values, 0, scalar @th ] while @values;

print "<table>\n";
for my $i (0 .. $#th) {
    print 
        "<tr><th>$th[$i]</th>", 
        map("<td>$_->[$i]</td>", @td), 
        "</tr>\n";
}
print "</table>\n";