If you have a sub you want to read a variable from the global scope you can reference it via use vars.

sub foobar {
    use vars qw($debug);

    print "$debug is a global var";
}