{
    my @FIELDS = qw( foo bar baz );
    sub set_params 
    {
        use CGI qw(:standard);
        map { $_ => param($_) || '' } @FIELDS;
    }
}

# Other subroutines here 

{
    my %params = set_params();
    # Call other subroutines here 
}