my @params;
foreach ( $q->param() ) {
    push @params, $_;
    push @params, $q->param($_);
}
my %param = @params;