@coords = ([$x1, $y1], [$x2, $y2], [$x3, $y3], ....);
[download]

$shape = \@coords;
[download]

use List::Util qw(pairmap);

my @coords = (86.925, 27.988, 86.5278, 27.744, 86.43, 27.365);

my @pairs = pairmap { [ $a, $b ] } @coords;

$shp_writer->add_shape( \@pairs, @attributes );
[download]

tangent, thank you, that makes perfect sense. I have tried the following code and am now getting an error regarding "Can't use string ("0") as an ARRAY ref while "strict refs" in use at <path to writer.pm> line 141". I have tried adding the use strict; and declaring $x/$y/$dummy, but did not help.
The following code is what I am using to try to get it to work:


use Geo::Shapefile::Writer;
use List::Util qw(pairmap);

$shape = Geo::Shapefile::Writer->new("Temp", 'POLYGON', [COL1 => 'C', 
+10],);
my @coords = (0, 0, 0, 1, 1, 1, 1, 0, 0, 0);
my @pairs = pairmap { [ $a, $b ] } @coords;

# Checking to make sure pairs look correct
foreach $dummy (@pairs)
{
  ($x, $y) = @$dummy;
  print "$x, $y\n";
}

$shape->add_shape(\@pairs, {Col1 => "Dumb1"});
$shape->finalize();
[download]

Looking at Geo::Shapefile::Writer try adding brackets around \@pairs like this

$shape->add_shape([\@pairs], {Col1 => "Dumb1"});
[download]

poj

I'm sorry I can't say more without knowing more about the format of the shapefiles which I don't have the time to look into at the moment, but it looks like your @coords array will have to be a part of the "add_shape" subroutines argument somehow. I have dealt with shapefiles long ago and I remember it was ugly. You probably have shapefile help around, but here is a link that I would have to start with.

-Tom