$Data::Dumper::Deparse or $OBJ->Deparse([NEWVAL])