$mod::d_area = "(default)";
*d_area = \$mod::d_area;             # Create alias in *main::

{
   local $d_area = "one";            # Replace scalar
   say $mod::d_area;                 # (default)
   $mod::d_area = "two";
   say $d_area;                      # one
}

say $d_area;                         # two