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

##</code><code>##

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