my $r = "set in file scope";

*original = \$r;

{
    my $r = "set in BLOCK scope";

    print "\$r is: $r\n";

    print "\$original is: $original\n";

}