use alias;

my $self = { x => 1 };
make_alias my $x, $self->{x};

$x = 100;
print $self->{x}; # 100