On a completely unrelated note, in Perl your for loop is better written:

for my $i (0 .. $#lines)
[download]

or if you don't need the index:

for my $line (@lines)
[download]