It looks like you want to use symbolic references, but you probably want hard references instead. See References quick reference by tye, then perlref

my $x = 1;
my $y = \$x;
$$y = 2;
print $x;
[download]

After Compline,
Zaxo