while (<IN>) {
        if ($y=......)......
	close(IN);
}