package Test {

    our $DEBUG = 0;

    our %hash = (a => "Ah", );

    print $DEBUG;
}

$Test::DEBUG = 1;
print $Test::DEBUG;