print $stack[ $_ ] for reverse 0 .. $#stack;

##</code><code>##

undef @stack;

##</code><code>##

print while pop @stack;