my $hash = {};
  for ($cgi->param())
  {
    push @{$hash->{list}->{$_}}, $cgi->param($_);
    $hash->{scalar}->{$_} = $hash->{list}->{$_}->[0];
  }