my $ref; { my native str $bb = 'hello world'; $ref = \$bb; } print $$ref;