#! /usr/bin/perl -l

use Algorithm::Combinatorics ':all';

my $cards = 12;
my $holes = 7;

my $iter = combinations_with_repetition( [1 .. $holes], $cards - $holes );

while (my $x = $iter->next) {
    print "@{distrib($holes, $x)}";
}

sub distrib {
    my @d = (1) x shift;
    ++$d[$_-1] for @{+shift};
    return \@d;
}