for my $i (0 .. $#title) { ... }
for my $a (0 .. $#file)  { ... }