my $hash = {};
  for ($cgi->param())
  {
    push @{$hash->{$_}}, $cgi->param($_);
  }