Because POLYGON supports multi-part polygons you have to put each part in an array reference too.

  my $pt1     = [ $x, $y ];
  my $part1   = [ $pt1, $pt2, ...];
  my $polygon = [ $part1, $part2, ...];
[download]