sub set_params
{
        { map { $_ => $_ } @FIELDS };
}

$ perl -MO=Deparse /tmp/hash.pl
sub set_params {
    {
        map {$_, $_;} @FIELDS;
    }
}

sub set_params
{
        +{ map { $_ => $_ } @FIELDS };
}

$ perl -MO=Deparse /tmp/hash.pl
sub set_params {
    {map({$_, $_;} @FIELDS)};
}

sub set_params
{
        return { map { $_ => $_ } @FIELDS };
}

$ perl -MO=Deparse /tmp/hash.pl
sub set_params {
    return {map({$_, $_;} @FIELDS)};
}