my %field;
for ( param() ) {
  $field{$_} = param($_);
}