$params = $cgi->Vars();

##</code><code>##

$params = { map { $_ => ($cgi->param($_))[0] } $cgi->param };

##</code><code>##

%params = map { $_ => ($cgi->param($_))[0] } $cgi->param;