Pas mal d'erreurs j'ai l'impression :


# Ça devrais plutôt être à mon avis :
# for(my $i = 1; exists $line2[$i]; $i += 2)

for (my $i=1;@line2 != 0;$i+=2)
{
# Il faut utiliser...