Hmmmmm, a shot in the dark: i really don't like the way you are getting to the label() method with:

for (@$tableau) {
   my $c = ($_->cards())[0]->label();
   ...
}
[download]

Try using transitory variables to see which part is not working, something like:

for my $tabl (@$tableau) {
   my @deck = $tabl->cards();
   my $card = $deck[0];
   my $label = $card->label();
}
[download]

might help find the bug. This way you can pinpoint each 'link in the chain'.

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)