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