{ my $a; $a = \$a; # reference count of $a increases to 1 } # $a goes out of scope, but $a stays in use because of its reference count