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