$numbers{int(rand(20))+1}++ while keys %numbers < 10;