$a = "xyz";
  $b = \$a;
  $c = \$b;
  $d = $c;
  while (ref $d eq "REF") { $d = $$d; }
  $, = " & ";
  print ($a, $b, $c, $d, $dd);