#!/usr/bin/perl -w
use strict;

sub deckof{
    my @cards = @_;

    foreach my $card(1...30){
        my @elements1 = (pop(@cards), shift(@cards), pop(@cards));
        my @elements2 = (shift(@cards), pop(@cards), shift(@cards));

        push(@cards, @elements1, @elements2);
    }
    return @cards;
}
1;