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

##</code><code>##

$csv->column_names(keys $AoH_records->[0]);

##</code><code>##

use List::Util qw/min/;
# ...
splice @columns, min 10, scalar @columns