Help for this page
#!/opt/perl5/bin/perl -w ... for(reverse(@lines)) { print; }
while(@lines) { print pop(@lines); }