in reply to suggestions for improvement

um that should be
while (<STAT_FILE>) {

In Section Seekers of Perl Wisdom