$obj->{field};

##</code><code>##

$obj->field();

##</code><code>##

my @FIELDS = qw( a b c d );  # Put your field names here
foreach my $field (@FIELDS) {
    no strict 'refs';
    *$field = sub {
        my $self = shift;
        $self->{$field} = shift if @_;
        return $self->{$field};
    };
}