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