foreach my $C (@Coordinates){
push (@NewCoordinates, split("..",$C)};