#arrays as stacks
my @stack1 = qw/this is a good feature/;
print "initial array contains : @stack1\n";
push(@stack1,"in");
print "@stack1\n";
push(@stack1,"perl");
print "@stack1\n";
my $var = pop(@stack1);
print "$var popped of arraystack which now contains : @stack1\n";
push(@stack1, 7);
push(@stack1, 8);
$var = pop(@stack1) + pop(@stack1);
print"$var\n";

#arrays as queues
print "@stack1\n";
unshift(@stack1,"thing");
print "@stack1\n";
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";
}