use CGI qw(:all);
my @names = param();
foreach my $name (@names) {
    $$name = param($name);
}