my $GLOBAL = 1;

sub foo {
    ... ; 
    ... $GLOBAL ... ;
    ... ;
}