perl -MO=Deparse,-p test_ref.pl

($a = 'foo');
($b = (\$a));
print("b : $$b\n");
print("b2 : ${$b;}\n");
test_ref.pl syntax OK