in reply to Looping

for ( reverse 1903..(1900 + (localtime)[5]) ) { print "$_\n"; }

[download]

In Section Seekers of Perl Wisdom