my $newcard = pop(@cards[$i]) . " of " . $types[$i];