in reply to Drawing Shapefiles in Goo::Canvas

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

[download]

get_part() returns a scalar. You are already iterating over the parts of the shape. Call one of area_centroid or vertex_centroid to get a Geo::ShapeFile::Point object that you can retrieve the X and Y from.
s//----->\t/;$~="JAPH";s//\r<$~~/;{s|~$~-|-~$~|||s |-$~~|$~~-|||s,<$~~,<~$~,,s,~$~>,$~~>,, $|=1,select$,,$,,$,,1e-1;print;redo}

In Section Seekers of Perl Wisdom