Select Code to Download

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

my $c2 = @column_names;

...
        print "<td>$values[$i]</td>\n";
}
print qq(<tr>);