my $a;
  $a = \$a;  # reference count of $a increases to 1
  undef $a;  # reference count decreases to 0
}            # $a goes out of scope, $a gets freed because of its reference count of 0