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

##</code><code>##

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