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