#!/usr/bin/perl
# 
# I win
# 
use warnings;
use strict;
foreach my $year (2003 .. 2010) {
    foreach my $month (1 .. 12) {
        foreach my $day (1 .. 31) {
            $month = "0$month" if($month < 10);
            $day = "0$day" if($day < 10);
            print "$year-$month-$day\n";
        }
    }
}