while ($l = ) { push(@a, $l); } while ($oldval = pop(@a)) { print $oldval; }