$p->{pj} = Proj::pj_init_plus(4, ["proj=$p->{proj}",
.
.
.