Select Code to Download

{
        my @FIELDS = qw( foo bar baz);
...
my $params = set_params; 
use Data::Dumper "Dumper"; 
print Dumper($params);

my $params = { map { $_ => $_ } @FIELDS }; 
return $params;

$ perl -v

This is perl, v5.8.2 built for i686-linux