Help for this page

Select Code to Download


  1. or download this
    my @columns = keys $AoH_records->[0];
splice @columns, 10;
$csv->column_names(\@columns);
  2. or download this
    $csv->column_names(keys $AoH_records->[0]);
  3. or download this
    use List::Util qw/min/;
# ...
splice @columns, min 10, scalar @columns