Luckily the nature of the input file means that this should never happen! But...if it did... ideally the index should only be matched once. PS lines 9 and 10 should read

chomp $var1;
chomp $var2;
[download]

i changed it to ease readers through the problem