#!/usr/bin/perl 

use CGI;

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

...