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

##</code><code>##

for my $line (@lines)