Perl REFCOUNTers and AnyEvent

Perl use reference counting to destroy unused objects.When an object references another one, that itself references the previous one, the two objects will never be destroyed automatically. With closures it can happen very quickly and here is our solution