This smells a bit of homework, but I'd not use a loop. Just this:

print map "$_\n", reverse 1903..(1900 + (localtime)[5]);
[download]

-- Randal L. Schwartz, Perl hacker