use Lexical::Alias;

my( $this, $that );

alias $that, $this;
# $this is now an alias for $that.

##</code><code>##

alias @x, @y;
alias %x, %y;

##</code><code>##

use Tie::Alias;

my( $this, $that );

tie $this, 'Tie::Alias', \$that;
# $this is now an alias for $that.