$p->{pj} = Proj::pj_init(4, ["proj=$p->{proj}",
                                  "units=$p->{units}",
                                  "lat_0=$p->{lat_0}",
                                  "lon_0=$p->{lon_0}"]);