#!/usr/bin/perl

use Modern::Perl '2015';
use Math::Combinatorics;

my $states = 4;

foreach my $count (1, 2, 3, 4, 7, 8) {

    say "count=$count";

    my $iter = Math::Combinatorics->new(
            count     => $count,
            data      => [ grep { $_ != 1 } (0 .. ($states - 1)) ],
            frequency => [($count) x ($states - 1)]
        );

    while(my @states = $iter->next_multiset) {
        say join(",", @states);
    }
}