Select Code to Download

use strict;
use Text::CSV_XS;
use Data::Dumper;
...
my @columns = $csv->fields();

print Dumper(@columns);

$VAR1 = 'one';
$VAR2 = 'two three';
$VAR3 = 'four';
$VAR4 = 'five';
$VAR5 = 'six seven eight';
$VAR6 = 'nine';