my $foo = Some::Moose::Object->new();
my $bar = $foo;
$foo = undef;