use strict;
use warnings;
use CGI;

my $form = CGI->new;

# Loop over each parameter.
foreach my $param_name ($form->param) {
   # Loop over each value of the parameter.
   foreach my $value (@{$form->param($param_name)}) {
      print "$param_name = $value\n";
   }
}