my @stack;

push @stack, "An item to push on the stack";
print "The top stack item is: $stack[-1]\n";
pop @stack;