Select Code to Download

$email=$q->param(email);
$name=$q->param(name);

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

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

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