ブラックジャックで２枚の親のカードの内、１枚だけ表示させる書き方教えてください。
while ($#stack >= 11) {
undef @myHands;
undef @hisHands;

push (@myHands, pop (@stack));
push (@hisHands, pop (@stack));
push (@myHands, pop (@stack));
push (@hisHands, pop (@stack));


print "MyCards:", join (", ", @myHands), "\n";
print "HisCards:", join (", ",@hisHands), "\n";
↑
ここで親のカードを１枚だけ表示させたい！
stackには５１枚のカードが入っています。
お願いします。