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