my @part = $shape->get_part($p);
            for(@part) {
                push(@shape,[$_->X,',',$_->Y]);