# main scope
$fred = 1; #global
{ # outer scope
    my $fred = 2;
    #...
    { #inner scope
        print $main::fred; # prints the global 1
    }
}