use Lexical::Alias;

my( $this, $that );

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