#!/usr/bin/perl

sub deckof{
    my @cards = @_;
   
    foreach $card(@random_card){
        my $element1 = (pop(@random_card), shift(@random_card), pop(@random_card));

        my $element2 = (shift(@random_card), pop(random_card), shift(@random_card));

        push(@cards, $element1, $element2);
    }
    return @cards;
}
1;