Cut and paste from 425695...

use Date::Tie;
use strict;

tie my %dt, 'Date::Tie', 
    weekday => 1,
    week => 1,
    weekyear => 2005,
    hour => 0, 
    minute => 0, 
    second => 0;

$dt{weekday} = 0; # sunday

while ( $dt{weekyear} == 2005 )
{
    print "$dt{month}-$dt{day}-$dt{year}\n";
    $dt{week}++;
}

01-02-2005
01-09-2005
01-16-2005
01-23-2005
...
[download]