for my $line index my $i (@lines)