sub one {
    local $d_area = "one";
    dsay "debugging output from one";
}

sub two {
    local $d_area = "two";
    dsay "debugging output from two";
}

$debug{TWO} = 1;
one;
two;