{ # Start of naked block. my $ref; { my $num = 20; $ref = \$num; } } #End of naked block. #### { my $ref; my $ref2 = \$ref; $ref = \$ref2; }