in reply to Using stringified refs for unique IDs?
sub DESTROY { my $self = shift; delete $TEMPS{"$self"}; } [download]