my @columns;
for my $key ( keys @{$AoH_records}[0] ) {
    push @columns, $key;
    last if scalar @columns == 10;
}

$csv->column_names( @columns );