for (my $i = 1; $i<=6; $i++){
  for (my $ii = 1; $ii<=6; $ii++){
     for (my $iii = 1; $iii<=6; $iii++){
        for (my $iiii = 1; $iiii<=6; $iiii++){
           for(my $j=1;$j<=6;$j++){
              for(my $jj=1;$jj<=6;$jj++){
                 for(my $jjj=1;$jjj<=6;$jjj++){
                    print "$i,$ii,$iii,$iiii,$j,$jj,$jjj\n";
                 }
              }
           }
        }
     }
  }
}