use strict;                        # 1
{                                  # 2
    my $foo = "Hello, world!\n";   # 3
    print $foo;                    # 4
}                                  # 5
print $foo;                        # 6

##</code><code>##

use strict;                        # 1
my $bar;                           # 2
{                                  # 3
    my $foo = "Hello, world!\n";   # 4
    print $foo;                    # 5
    $bar = \$foo;                  # 6
}                                  # 7
print $$bar;                       # 8