Select Code to Download

  $cost = $h->{Locations}{$location}{Buildings}{$b}{cost};

  $cost = $h->Locations->$location->Buildings->$b->cost;

  $cost = $h->{"Locations.$location.Buildings.$b.cost"};

  while (my ($key, $value) = $h->each)
  {
...
  .
  .
  .