Select Code to Download

print "@cards[0..4],  @newcards[0..4]\n";

my @startingdeck = ("A H","2 H","3 H","4 H","5 H","6 H","7H","8 H",
                    "9 H","10 H","J H","Q H","K H",
...
my @newcards = deckof(@cards);
print "@cards[0..4],  @newcards[0..4]\n";
$x++;