my $y;
sub x{
open( IN, "<$file" ) or die "Konnte Input nicht oeffnen!\n";
	while (<IN>) {
        if ($y=......)......
	close(IN);
}
&x;