my %field;
for ( qw/foo bar baz/ )
{
  $field{ $_ } = param( $_ );
}