sub sum
    {
        my $sum;
        $sum += $_ for @_;
        $sum
    }

    my @combos = map
    {
        my @v = reverse split //, sprintf "%05b", $_;
        my @w = grep { $v[$_] } 0 .. $#v;
        @w > 1 ? \@w : ()
    }
    0 .. 31;

sub fifteens
{
    my $hand = shift;
    $hand =~ s/[SCHD]//g;
    $hand =~ s/[JQK]/10/g;
    $hand =~ s/A/1/g;
    my @hand = split /,/, $hand;

    ( grep { sum(@hand[@$_]) == 15 } @combos ) * 2
}

##</code><code>##

[ 1,2 ],
[ 1,2,3 ],
[ 1,2,4 ],
. . .