Den Eingabedatensatztrenner auf den leeren String zu setzten schlug ich auch schon vor.

Aber ist es wirklich garantiert, dass die Datei genau am Ende des Blockes, wenn der Referenzzähler für $vhosts auf Null fällt geschlossen wird, oder könnte es sein, dass das erst irgendwann später passiert? Ich habe nicht genug Ahnung von den Perl Interna um mir diese Frage selbst zu beantworten, hätte aber immer close von Hand aufgerufen, denn sicher ist sicher. Unter Java bekommt man mit ähnlichen Konstruktionen zum Beispiel Probleme, weil die Datei sonstwann geschlossen wird -- aber Java verwendet auch einen konservativen Garbagecollector und keine Referenzzähler.