sub PKG() { __PACKAGE__ }
...
    $self->{PKG.'.foo'} = 42;