$email=$q->param(email);
$name=$q->param(name);
##</code><code>##

my $sr;
foreach my $str qw(email name) {
   $sr->{$str}=$q->param($str);
}

##</code><code>##

my @names=$q->param;
foreach my $str (@names) {
    	$sr->{$str} =$q->param($str);
}

##</code><code>##

 
my @names=$q->param;
foreach my $str (@names) {
    if (ref($str) eq "ARRAY") {
        my @multi=$q->param($str);
        sr->{$str} =\@multi;
    }else {
        $sr->{$str} =$q->param($str);}
    }
}