dealer は、ディーラーの処理を行うサブルーチンです。
一般的なブラックジャックのルールに従い、「ディーラーは、16 でドロー（ヒット）／17 でスタンド（ステイ）」としています。
#ディーラーの処理を行う
sub dealer {
while ($PlayerPoint) {
last if ($DealerPoint >= 17);#16 でドロー（ヒット）／17 でスタンド（ステイ）
push(@DealerHands, shift(@stack));
$DealerPoint = &calc(@DealerHands);
last if ($DealerPoint == 0);
}
}
