Select Code to Download

# build the original deck of cards
my @card_values = (2, 3, 4, 5, 6, 7, 8, 9, 10, 'V', 'D', 'R', 'A');
...
        push @deck, splice(@original_deck, rand(@original_deck), 1);
    }
}

my @hand = (); 
push @hand, shift @deck for 0..4;