$p->{Vcpeid}{$cpeid} = RepoVData->new() unless blessed $p->{Vcpeid}{$cpeid};
    $p->{Vcpeid}{$cpeid}{RepoDB} = RepoDB->new() unless;
    $p->{Vcpeid}{$cpeid}{RepoDB}->{$nam} = VR->new()