# declare column names for getline_hr $csv->column_names($csv->getline($csv_fh)); # Build Array of HashRefs my @buttons; while (my $row = $csv->getline_hr($csv_fh)) { push(@buttons, $row) unless ($. == 1); }