sub set_params 
{
    use CGI qw(:standard);

    my %params;
    $params{param1} = param('param1') || '';
    $params{param2} = param('param2') || '';
    $params{param3} = param('param3') || '';

    # Dozen more lines of that

    return %params;
}

##</code><code>##

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

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