Select Code to Download

$myPolygons = 
...
           }
      }

@_ = ($x0, $y0, $x1, $y1, $x2, $y2, $x3, $y3)

$x0, $y0, $x1, $y1

@{$points_by_name{$key}}[0..3];
@{$points_by_name{$key}}[2..5];
@{$points_by_name{$key}}[4..7];
@{$points_by_name{$key}}[6..9];

foreach my $key (keys %points_by_name)
    {
...
            }
        }
    }

foreach my $key (keys %other_hash)
    {
...
            }
        }
    }