my @columns = keys $AoH_records->[0];
splice @columns, 10;
$csv->column_names(\@columns);