Select Code to Download

sub set_params 
{
...

    return %params;
}

my @FIELDS = qw(param1 param2 param3 . . . );

...
    use CGI qw(:standard);
    return map { $_ => param("$_") || '' } @FIELDS;
}