use strict;
use warnings;
use Data::Dump;
$\="\n";

our $x='X';
our $y='Y';
our (@x,@y,@z);

# return lvalue glob
sub lg :lvalue { *x };


print '--- make $x alias of $y' ;

lg=\$y;          
dd \*x;

print '$x= ',"'$x'";


$y='YY';
print '$x= ',"'$x'";


print '--- make *x alias of *z' ;

lg=*z;     
dd \*x;


our $z='Z';
print '$x= ',"'$x'";

@z=qw(Z ZZ ZZZ);
print '@x= ',"qw/@x/";