Select Code to Download

my @x; # @x has a refcount of 1
{ 
  my @array=(\@x);  # @x has a refcount of 2
} # Free lexicals
# @x has a refcount of 1

procedure refcount_dec(item)
  if ( --item.refcount == 0 ) 
...
    endif
  endif
endproc