for(my $o = 0;$o<6;$o++){