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

##</code><code>##

for my $i (0 .. $#lines) {