Select Code to Download

my @columns;
for my $key ( keys @{$AoH_records}[0] ) {
...
}

$csv->column_names( @columns );