ike1 => sub {
   my @poly = map [ (split /,/, $_)[0, 1] ], split ' ', $coords;
},
ike2 => sub {
   my @poly = map [ /([^,]*),([^,]*)/ ], split ' ', $coords;
},