#!/usr/bin/perl

use strict;


my @PRINT_STACK;
my $x = 0;

push @PRINT_STACK, $x++;
print "PRINT_STACK => ( ",@PRINT_STACK, " )\n";

push @PRINT_STACK, $x;
print "PRINT_STACK =>( ",join(", ",@PRINT_STACK)," )\n";

print pop @PRINT_STACK;
print pop @PRINT_STACK;


exit();