While der interne Pointer im handle $filehandle1 nach dem Durchlauf der while-Schleife am Ende angekommen ist und nicht zurückgesetzt wird.

perldoc -f seek