Select Code to Download

my @deck= @_;

return @deck

my @starting_deck = &deck(@starting_deck);

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

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