$foo = '123' ;
  $bar = undef ;

  *bar = \$foo ;
  print "bar: $bar\n" ;
  
  $bar = 102030 ;
  print "foo: $foo\n" ;