print "<tr>";
for (my $i = 0; $i<@values; $i++)
{
  if (($i % scalar(@column_names)) == 0)
  {
    print "</tr>\n<tr>";
  }
  print "<td>$values[$i]</td>\n";
}
print "</tr>";
[download]

code is UNTESTED.

And wrong. While the output you generate is useful, it's not what the OP specified. You forgot to output the column names and probably didn't look at the example output at all, as that specifies horizontal "columns". Turning a table 90 degrees results in messier code than the nice looking thing you produced.

Juerd # { site => 'juerd.nl', plp_site => 'plp.juerd.nl', do_not_use => 'spamtrap' }

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

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

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";
[download]

col1 col2 col3
val1 val2 val3
val4 val5 val6
[download]

The output needs to be the other way round (like I said in the post).

Cheers

So col is more of a row?

This code will do the trick:

use strict;

my @column_names = ('col1', 'col2','col3');
my @values  = ('val1','val2','val3','val4','val5','val6', 'val7', 'val
+8');

my $number_of_rows = @column_names;
my $number_of_values = @values;
my $row_number;

print '<table>';

foreach my $row (@column_names) {
    print '<tr><td>',$row,'</td>';
    for (my $value_number=$row_number; $value_number<$number_of_values
+; $value_number+=$number_of_rows)  {
        print '<td>',$values[$value_number],'</td>';
    }
    $row_number++;
    print '</tr>';
}

print '</table>';
[download]

Note that the number of values does not have to be an integer multiple of the number of rows.

CountZero

"If you have four groups working on a compiler, you'll get a 4-pass compiler." - Conway's Law

use strict;
my @column_names = ('col1', 'col2','col3');
my @values  = ('val1','val2','val3','val4','val5','val6');
for (0..$#column_names) {
    print qq(<tr><td>$column_names[$_]</td><td>$values[($_*2)]</td><td
+>$values[($_*2)+1]</td></tr>\n);
}
[download]

Sorry, - that should be:

my @column_names = ('col1', 'col2','col3');
my @values  = ('val1','val2','val3','val4','val5','val6');

my $num_vals = $#values / $#column_names;
print "<table>\n";
for $r (0 .. $#column_names) {
      print "<tr><td>$column_names[$r]</td>";
      for $c (0 .. $num_vals - 1) {
           $val = ($r*$num_vals)+$c;
           print "<td>$values[$val]</td>";
      }
      print "</tr>\n";
 }
 print "</table>":
[download]

Where it's assumed you have an integer multiple of values for each column name. If not, putin a pre-check:

if ($values[$val]) {...}
else {last;}
[download]

Forget that fear of gravity,
Get a little savagery in your life.

Just thought I'd mention a module that a recently discovered that is quite handy with tables, HTML::QuickTable. I use it by looping through some records and populating a hash with some of the information.

$Foo{ Bar }{ Baz } = "Value 1";
$Foo{ Bar }{ Quux } = "Value 2";
$Foo{ MoreBar }{ Baz } = "Value 3";
[download]

HTML::QuickTable spits back:

	Baz	Quux
Bar	Value 1	Value 2
MoreBar	Value 3