Select Code to Download

foreach(@stack1){
    my $qq = pop(@stack1);
    print "$qq popped from end of queue\n";
    print "left on stack : @stack1 \n";
    print "stack size is $#stack1 \n";
}

while(@stack1){
    my $qq = pop(@stack1);
    print "$qq popped from end of queue\n";
    print "left on stack : @stack1 \n";
    print "stack size is $#stack1 \n";
}