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

##</code><code>##

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

##</code><code>##

$ perl -v

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