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

------------
# output: 
col1   val1   val4
col2   val2   val5
col3   val3   val6


##</code><code>##

my $c2 = @column_names;

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