my $b = '1';
my $a = \$b;

$$a = '2'; # ${$a} = '2';

print $b;
[download]

Have a nice day
All decision is left to your taste