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