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