++$finished_1, seek ONE,0,0 if eof ONE;
# this is the same as
if ( eof ONE)
{
    $finished_1++;   #post or pre-increment the same
    seek ONE,0,0;
}
# the number of source code lines does not equate
# directly into actual "code savings". The more
# wordy "if" loop will code into very similar, if
# not the exactly the same executing code