# deal from the middle of the deck
my $card = pop_random( @deck );