$x+=1/$_ for@k=1..<>;print@k?$x/@k:1.644934