Select Code to Download

 sub param_hash {
     my $q = shift;
...
     $param{$_} = $q->param($_) for $q->param;
     return \ %param
 }

 my @field_names = $q -> param;
 my @field_values = ();
...
     $field_values[$index] = $q->param( $field_names[$index] );
     # within this loop: also check for specific, or no data on each f
+ield
 }

 # Predeclare which parameters are needed and also specify
 # which are expected to contain lists. All others are
...
     # hash reference.
     return \ %extracted
 }