{
        my @FIELDS = qw( foo bar baz);
        sub set_params
        {
                { map { $_ => $_ } @FIELDS };
        }
}
my $params = set_params; 
use Data::Dumper "Dumper"; 
print Dumper($params);