In this tutorial, you will find source code implementation of stack data structure. Perl built-in support stack data structure as follows:
print "Creating a Stack\n"; @perl_stack = qw( bash awk chmod ); print "Initial stack:\n @perl_stack \n"; push (@perl_stack, "diff"); print "Push item on stack:\n @perl_stack \n"; $item = "Emacs"; push (@perl_stack, $item); print "Push item on stack:\n @perl_stack \n"; $top = pop @perl_stack; print "Popping top of stack: $top\n"; print "Final stack:\n @perl_stack \n\n";