#PICK A CARD
sub pick_a_card {
    my $deckref = shift;
    my $card=pop(@{$deckref});
    return $card;
}