Select Code to Download

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

  $a = "xyz";
  $b = \$a;
...
  $, = " & ";
  $e = \$d;
  print ($a, $b, $c, $d, $dd, $e);