TCL script

I need to write a TCL script (synopsys tool) to cut and remove overlaps from a given circuit design. Given Vss - ground and Vnnaon - power, the objective is to remove parts of Vss that are overlapping with Vnnaon.
i have this partial working script, but it fails for some cases of multiple overlaps