Package var before setting:   ()
Package var after  setting:   (Ogopogo)
Package var from obj--unqualified: ()
Package var from obj--qualified:   ()

Addresses:
$Bar::package_variable    SCALAR(0x815363c)
$obj->{"unqualified_ref"} SCALAR(0x8188950)
$obj->{"qualified_ref"}   SCALAR(0x8188950)