FindClusters[Join[RandomVariate[NormalDistribution[0,1],{1000,2}],RandomVariate[NormalDistribution[1,.1],{1000,2}]]]//ListPlot