in reply to Optimization problem?

As posted before just set $| = 1;. You can get more informations in the article Suffering from Buffering.

In Section Seekers of Perl Wisdom