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

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

print $b;