use CGI;
my $q = new CGI;
my %hash = $q->Vars();

# this is faster code than map BTW
my %hash;
$hash{$_} = param($_) for param();