use strict;
use CGI;
# .....
my $q = new CGI;
my %params = {};
{
  my @params_names = $q->param;
  for(@params_names) {
    $params{$_} = $q->param($_);
  }
}

##</code><code>##

use CGI;
my $q = new CGI;
my %in = map { $_ => $q->param($_) } $q->param;