sub p{grep{my$c=$_;$#_==grep$c%$_,@_}@_=2..pop}