my $o = Foo->new;

# nicht machen
$o->{BAR} = 'Otto';

# bessr machen
$o->setBAR('Otto');