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