my %hash = (foo => 1);
  my $ref = \%hash;
  print $ref->{foo};