sub DESTROY {say "DESTROYED"}
sub f{ bless \my $x } say f() for 1..10;
__END__
main=SCALAR(0x9721530)
DESTROYED
main=SCALAR(0x9704c30)
DESTROYED
main=SCALAR(0x9721530)
DESTROYED
main=SCALAR(0x9704c30)
DESTROYED
main=SCALAR(0x9721530)
DESTROYED
main=SCALAR(0x9704c30)
DESTROYED
main=SCALAR(0x9721530)
DESTROYED
main=SCALAR(0x9704c30)
DESTROYED
main=SCALAR(0x9721530)
DESTROYED
main=SCALAR(0x9704c30)
DESTROYED