@$_=glob<>for-1..1;print 1e-5*grep{@0<2*grep$0[$i++%@0]>$_,@1=sort{2*rand}@1}1..1e5