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

##</code><code>##

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