my $x;
CODE INVOLVING OUTER $x
{
    my $x;
    CODE INVOLVING INNER $x
}