Re: What I am missing here

[lidden]

I think your shuffle is buggy. Use the built in shuffle instead.

use List::Util;

# ... snip ...

@deck = List::Util::shuffle @deck;