Select Code to Download

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

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