=**************************************
    = Name: PUSH & POP
    = Description:Just to show you how the p
    =     ush and pop functions are used
    = By: Damian myerscough
    =
    = Returns:Output of the @Stack
    =
    =This code is copyrighted and has    = limited warranties.Please see http://w
    =     ww.Planet-Source-Code.com/vb/scripts/Sho
    =     wCode.asp?txtCodeId=485&lngWId;=6    =for details.    =**************************************
    
    #!/usr/bin/perl -w
    #
    # Push and POP Example
    #
    # Create and empty @Satck array
    my @Stack;
    # Print are Array out which should be nothing
    print"First Stack @Stack\n\n";
    # Start to `push` numbers and letters into are @Stack array
    push(@Stack, 7 ,6, "go");
    # print the @Stack array out with all values we pushed in
    print"Seconed Stack @Stack\n\n";
    # The pop removes the last value away from the @Stack array
    my $action = pop @Stack;
    # Print out @Stack which will have `go` missing because we removed
    # it with pop
    print"POPED @Stack \n";