my @deck= @_;

##</code><code>##

return @deck

##</code><code>##

my @starting_deck = &deck(@starting_deck);

##</code><code>##

my $element1 = pop(@deck), shift(@deck), shift(@deck);
print "element1 is $element1 \n";

##</code><code>##

my @elements1 = (pop(@deck), shift(@deck), shift(@deck));
print "elements1 is @elements1 \n";