sub shuffle_deck {
  my @orig_deck = @_;
  my @new_deck;

  for (0 .. $#orig_deck) {
    my $rand = int(rand $#orig_deck);
    push @new_deck, splice(@orig_deck, $rand, 1);
  }

  return @new_deck;
}