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