Aaah! Evil! Where's your use strict?! If you had one there you'd see that @field_data is being created in one while loop and then passed to a function from a different context. Bad! Doing things like that makes it hard for us to read, which may explain your lack of responses.

I like they way I can recognise the comments from the HTML::Template examples ;) I spent a lot of time copying out that example and modifying it too.

Without claiming I know much better, I would probably shorten this bit a little:

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);
}
[download]

can be written as (untested):

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

But why do you have get_values() there at all? You don't need it, because you have already used @keys and @values, right?

Also it is bad practise to have get_values() modify a global variable. Pass @keys and @values out of the subroutine like this:  return \@keys, \@values

Put use strict; at the top of your program, fix all the errors, then post again.

____________________
Jeremy
I didn't believe in evil until I dated it.