Select Code to Download

$childHood = "a young kid";
$test = "child";
...
  no strict "refs";
  ${$test."Hood"} = "an old man";
}

my %Hood;
$Hood{child} = "a young kid";
$test = "child";
$Hood{$test} = "an old man";