use strict;
use warnings;
use CGI;

##</code><code>##

my $q = CGI->new;
my @names = $q->param;
my %param;

##</code><code>##

foreach my $name (@names)

##</code><code>##

{
   $param{$name} = $q->param($name);

##</code><code>##

   print "$name: $param{$name}", $q->br;
}

##</code><code>##

use strict;
use warnings;
use CGI;
my $q = CGI->new;

##</code><code>##

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

##</code><code>##

print join $q->br, map { "$_: $params{$_}" } ($q->param);