for my $prop (qw [field1 field2 field3]) {
    eval sprintf <<'END', ($prop) x 3;
        sub %s {
            my $self = shift;
            if (@_) {$self->{%s} = shift};
            return $self->{%s};
         }
    }
END
}
##</code><code>##

for my $method (qw/ field1 field2 field3 /) {
  no strict 'refs';
  *$method = sub {
    use strict 'refs';
    my $self = shift;
    if (@_) {$self->{$method} = shift};
    return $self->{$method};
  };
}

##</code><code>##

  for my $method (qw/ ... /) {
    my $sub = sub { the code ... };
    no strict 'refs';
    *$method = $sub;
  }