my %hash;
$hash{$_} = gParam($_) for qw/formval1 formval2 .../;