my $memdump = MemoryDump->new();

   anyFunction();

   print $memdump->diff(MemoryDump->new();

##</code><code>##

    my $anon = [];
    my $otherref = $anon;

    my $refcount =  B::svref_2object($anon)->REFCNT(); # => 2