require B;

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

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