last if $top--;
In your first example this would evaluate to 'last if true', thus exiting the loop before the first print statement would get called.
Shouldn't that be last unless $top--; or am I overlooking something?