join "", map param($_), param;

##</code><code>##

use Data::Denter;
use CGI qw(param);
my %params;
for (param) {
  my @values = param($_);
  $params{$_} = @values == 1 ? $values[0] : \@values;
}
print Denter \%params;