Select Code to Download

foreach my $field (qw( foo bar baz)) {
    *$field = sub { 
...
        $self->{$field};
    };
}

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