Select Code to Download

my @newfields = ();
...
  $nf_row_data{FIELD} = shift @newfields;
  push(@field_data, \%nf_row_data);
}

my @newfields = ();
foreach $field (@fields){
...
  $nf_row_data{FIELD} = $_;
  push(@field_data, \%nf_row_data);
}