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

$$a='2';

print $b;