use CGI;
my $q = new CGI;

# iterate over all param names
for my $param ( $q->param() ) {
    print "<p>Param $param\n";
    # iterate over all values for param name $param
    for my $value ( $q->param($param) ) {
        print "<br> value: $value";
    }
}