my $p = 7; # Number of pigeon holes. my $c = 12; # Number of cards for my $s1 ( 1..$p ) { for my $s2 ( $s1..$p ) { for my $s3 ( $s2..$p ) { ... Need $c-$p loops