Perl Scalar::Util 避免循环引用

use Scalar::Util 'weaken';