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";
   }
}

##</code><code>##

use strict;
use warnings;
use CGI;

my $cgi = CGI->new;

# Get the parameters as a hash
my $form = $cgi->Vars();

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