use vars qw($query @parname %list $n );

$query = new CGI;
@parname = $query->param;
foreach $n (@parname) {
   $list{$n} = $query->param($n);
}