Select Code to Download

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

#!/usr/bin/perl -w
use strict;
...
    $p[$_-1]++ for @s;
    print "@p\n";
}