my $foo = "foo";
  my %hash = (foo => \$foo);
  print ${$hash{foo}};
  $foo = "bar";
  print ${$hash{foo}};