Perl puffert die Ausgabe bis zu einer gewissen Größe oder ein \n kommt. Willst du das nicht, setze local $|=1 in dem Bereich in dem es ein Autoflush geben soll.