Array
(
    [0] => 0
    [1] => 0
    [2] => 0
    [3] => 0
    [4] => 1
    [5] => 0
    [6] => 1
    [7] => 1
    [8] => 0
    [9] => 1
)
<br>Array
(
    [0] => 4
    [1] => 6
    [2] => 7
    [3] => 9
)

@ideal_depo = (10,9,8,7,6,5);
@array_have = (10,9,7,6,4);

# Получаем общий массив
@hash{@ideal_depo,@array_have} = ();
@ideal_plus_have = sort { $b <=> $a } keys %hash;

# Создаем маску
for (@ideal_plus_have) {
	if ($_ ~~ @array_have) { push @cardMask, 1; }
	else { push @cardMask, 0; }
}

# Считаем нули
for (0 .. @array_have - 1) {
	if (!$cardMask[$_]) { $dropCount++; }
}

# Узнаем последние номера
@cardForDrop = splice(@array_have,-$dropCount);
print "cardForDrop: @cardForDrop\n";
# cardForDrop: 6 4

@ideal_depo = (10,9,8,7,6,5);
@array_have = (10,9,7,6,4);

# Создаем общий массив
@hash{@ideal_depo,@array_have} = ();
@ideal_plus_have = sort { $b <=> $a } keys %hash;

# Ходим по общему массиву и считаем сколько у нас карт нету, если счетчик больше чем имеем карт, выходим.
for (0 .. @ideal_plus_have) {
	last if ($_ + 1 > @array_have);
	unless ($ideal_plus_have[$_] ~~ @array_have) { $dropCount++; }
}

# Узнаем последние номера
@cardForDrop = splice(@array_have,-$dropCount);
print "cardForDrop: @cardForDrop\n";
# cardForDrop: 6 4

@ideal_depo = (10,9,8,7,6,5);
@array_have = (10,9,7,6,4);

# Создаем общий массив
@hash{@ideal_depo,@array_have} = ();
@ideal_plus_have = sort { $b <=> $a } keys %hash;

# Проверяем в общем массиве первые карты на отсутствие по количеству имеющихся.
for (0 .. @array_have - 1) {
	unless ($ideal_plus_have[$_] ~~ @array_have) { $dropCount++; }
}

# Узнаем последние номера
@cardForDrop = splice(@array_have,-$dropCount);
print "cardForDrop: @cardForDrop\n";
# cardForDrop: 6 4