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