$p=<>;print~~grep$f=$f*$p<($p=$_),glob<>