for( my $i = 0; $i <= $#lines; $i++ ) {