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