$abc = 'xyz';
print(${*{abc}{SCALAR}}, "\n");  # xyz

##</code><code>##

$glob = *def = *abc;
$abc = 'xyz';
print($abc               , "\n");  # xyz
print($def               , "\n");  # xyz
print(${$glob           }, "\n");  # xyz
print(${*{abc  }{SCALAR}}, "\n");  # xyz
print(${*{def  }{SCALAR}}, "\n");  # xyz
print(${*{$glob}{SCALAR}}, "\n");  # xyz

##</code><code>##

$glob = *def = *abc;
$abc = 'xyz';
print($abc               , "\n");  # xyz
print($def               , "\n");  # xyz
print(${$glob           }, "\n");  # xyz
print(${*{abc  }{SCALAR}}, "\n");  # xyz
print(${*{def  }{SCALAR}}, "\n");  # xyz
print(${*{$glob}{SCALAR}}, "\n");  # xyz
local $def = 'uvw';
print($abc               , "\n");  # uvw
print($def               , "\n");  # uvw
print(${$glob           }, "\n");  # uvw
print(${*{abc  }{SCALAR}}, "\n");  # uvw
print(${*{def  }{SCALAR}}, "\n");  # uvw
print(${*{$glob}{SCALAR}}, "\n");  # uvw