my @list =  split(/[, ]/,$coords);
        my $size = @list;
        my @poly = ();

        for (my $i=0; $i<=($size-3); $i+=3)
        {
                my $lon = $list[$i+0];
                my $lat = $list[$i+1];
                my $point = [$lon,$lat];
                push (@poly, $point);
        }