I think you'll find it's the:

for my ($counter=0;$counter<9;$counter++)
[download]

construct (which you have two of.) You either want to move the move the my inside the brackets like:

  for (my $counter=0;$counter<9;$counter++)
[download]

Or even better use the more perl-ish

  foreach my $counter (0 .. 8)
[download]

/J\