my %param;
foreach (param) {
  $param{$_} = param($_);
}