use List::Util;

# ... snip ...

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