## usage example:
## program.pl -cards 5 -holes 3

use strict;
use warnings;

use feature 'say';

use Getopt::Long;
use Algorithm::Combinatorics 'combinations';

main();
exit 0;

sub main {
    GetOptions(
        'cards=i' => \my $cards,
        'holes=i' => \my $holes
    );
    die "Usage: $0 -c CARDS -h HOLES\n"
      if !defined($cards)
      || !defined($holes)
      || $cards <= 0
      || $holes <= 0
      || $cards < $holes;

    $cards -= $holes;

    my $tot = $cards + $holes - 1;
    my $combos = combinations( [ 0 .. $tot - 1 ], $cards );

    while ( my $combo = $combos->next() ) {
        my @result = (1) x $holes;

        for my $i ( 0 .. @$combo - 1 ) {
            $result[ $combo->[$i] - $i ] += 1;
        }

        say join ', ', @result;
    }
}
[download]