my @poly = map [ ( split /,/ )[ 0, 1 ] ], split ' ', $coords;