Verstehe ich immer noch nicht.
Fehlermdeldung zeigt auf Zeile 4.
Zeile 4 lautet print $fh 23; und das ist undefined, weil es nur mit my $fh benannt ist eine Zeile drüber.
Hab den Zusammenhang mit if darüber nicht verstanden.
Oder anders gefragt: Wie müsste die Perl Fehlermeldung eigentlich lauten? Vielleicht sehe ich dann das Problem.