($n,$x,$m)=glob<>; $/=$"; $r=Yes; for(1..$n){ $a=<>; $k=0; ++$k,$a>>=1until$a<$x; $r=No if$k*$_>$m; } print$r;