use Scalar::Util 'weaken';
weaken $glob{user};