print!<>+grep$f=$f*$p<($p=$_),glob<>