my @ordered_field_labels;

while (my $csv_record = <>) {
    $csv->parse($csv_record);
    my @values = $csv->fields();

    if ($INPUT_LINE_NUMBER == 1) {
        @ordered_field_labels = @values;
        # ...
    }

    # ...
}