Select Code to Download

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

my %param;
foreach (param) {
...
  # promote single element arrays
  $param{$_} = $param{$_}->[0] if @{param{$_}} == 1;
}