> > これでもまた同じ症状になる場合は、sub get_cardのforeach(1..$number){の上に以下の文を追加してエラー出力を連絡して欲しいのですが。
> > 　　&error("$number,$#cards,$cards[0],$cards[1],$cards[2],$#exist_cards,$exist_cards[0],$exist_cards[1],$exist_cards[2]");
> 2,-1,,,,-1,,,
> と表示されましたが・・・（汗
> なんのことやらさっぱり・・・（汗
>

上からわかること、@cardsの配列が空。（あってはならないことなんだけどな〜）
応急処置として、sub casino_action{の前の変数設定を全てsub casino_action{の下の行に移動（コピーではなく）して移動してきたもののmyを消してみてください。
そして、その後に先ほどの&error("〜");の出力を確認。(-1の数字が無ければとりあえずはOK)

最後に駄目元で、require 'casino.pl';を現在位置から&casino_action;の前に移動してみてください。

▼関連発言
│
└◆60:Casino System Ver. 2.1について [初心者] 09/25 18:36
　└◆61:Re:Casino System Ver. 2.1について [moon] 09/25 19:02
　　└◆62:Re[2]:Casino System Ver. 2.1について [初心者] 09/25 20:16
　　　└◆63:Re[3]:Casino System Ver. 2.1について [moon] 09/25 21:49
　　　　└◆64:Re[4]:Casino System Ver. 2.1について [初心者] 09/25 22:11
　　　　　├◆65:Re[5]:Casino System Ver. 2.1について [初心者] 09/25 22:20
　　　　　│└◆67:Re[6]:Casino System Ver. 2.1について [moon] 09/25 22:31
　　　　　└◆66:Re[5]:Casino System Ver. 2.1について [moon] 09/25 22:26
　　　　　　└◆68:Re[6]:Casino System Ver. 2.1について [初心者] 09/25 23:17
　　　　　　　├◆69:Re[7]:Casino System Ver. 2.1について.. [初心者] 09/25 23:22
　　　　　　　│└◆71:Re[8]:Casino System Ver. 2.1につい.. [moon] 09/25 23:36
　　　　　　　└◆70:Re[7]:Casino System Ver. 2.1について.. [moon] 09/25 23:34
　　　　　　　　└◆72:Re[8]:Casino System Ver. 2.1につい.. [初心者] 09/25 23:48
　　　　　　　　　└◆73:Re[9]:Casino System Ver. 2.1につ.. [moon] 09/26 00:14
　　　　　　　　　　└◆74:Re[10]:Casino System Ver. 2.1... [初心者] 09/26 00:21
　　　　　　　　　　　└◆75:Re[11]:Casino System Ver. 2... [moon] 09/26 08:40
　　　　　　　　　　　　└◆76:ここだけは変更が必要 [moon] 09/26 08:53
　　　　　　　　　　　　　└◆77:Re:ここだけは変更が必要 [初心者] 09/26 17:22
　　　　　　　　　　　　　　└◆78:景品としてのお金 [moon] 09/26 19:02<-last