in reply to Optimization problem?

you need to disable buffering: 
$| = 1;

[download]

In Section Seekers of Perl Wisdom