my ($field1, ...) =
  map { __PACKAGE__ . '::' . $_ } ('field1', ...);
[...]
... $self->{$field1} ...