my $object = ....;
$object->field1 = 2;
my $d = $object->field1;
# ...