use Tie::Alias;

my( $this, $that );

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