my %params;

foreach (param) {
  $params{$_} = [ param($_) ];
  $params{$_} = $params{$_}[0] if @{$params{$_}} == 1;
}