$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

##</code><code>##

my %mod = ( d_area => "(default)" );
my %main;
\$main{ d_area } = \$mod{ d_area };  # Create alias in %main

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

say $main{ d_area };                 # two