sub pick_a_card {
    my $deck = shift;

    return pop @$deck;
}

pick_a_card(\@deck);