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