Select Code to Download

{
        my @FIELDS = qw( foo bar baz);
...
          'baz' => 'baz',
          'foo' => 'foo'
        };

sub set_params
{
...
sub set_params {
    return {map({$_, $_;} @FIELDS)};
}