foreach my $field (qw/ foo bar baz /) {
    no strict 'refs';
    *$field = sub {
        my $self = shift;
        $self->{$field} = shift if @_;
        $self->{$field};
    };
}