$p->{Vcpeid}{$cpeid} = RepoVData->new() unless blessed $p->{Vcpeid}{$cpeid};
$p->{Vcpeid}{$cpeid}{RepoDB} = RepoDB->new() unless blessed $p->{Vcpeid}{$cpeid}{RepoDB}
$p->{Vcpeid}{$cpeid}{RepoDB}{$nam} = VR->new() unless 
                                             blessed $p->{Vcpeid}{$cpeid}{RepoDB}{$nam};
$p->{Vcpeid}{$cpeid}{RepoDB}{$nam}{vr($V, $R) = RPM_data->new({...}) unless blessed 
                                      $p->{Vcpeid}{$cpeid}{RepoDB}{$nam}{vr($v, $R) ....