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