Provide weak references in Perl
