my $ref = eval "\\$base\{$lastPart}" || eval "$base = {}"; $$ref = $newData;