foreach my $key (@_) {
        $hr = $hr->{$key} ||= {};
    };