#!/usr/bin/perl -w

print "Please input a year: ";
chomp ($year=<STDIN>);

$k = 0;
while ($year <= 2008) {
    
    if (($year % 4 == 0) and ($year % 100 != 0) or ($year % 400 == 0))  {
        $leap="true";
    }
    else {
        $leap="false";
    }

    my %months = (
        'aJan' => '31',
        'bFeb' => '28',
        'cMar' => '31',
        'dApr' => '30',
        'eMay' => '31',
        'fJun' => '30',
        'gJul' => '31',
        'hAug' => '31',
        'iSep' => '30',
        'jOct' => '31',
        'kNov' => '30',
        'lDec' => '31' );
    
    if ($leap eq "true") {
        $months{'bFeb'} = '29';
    }

    my @array_of_days = ('Thu', 'Fri', 'Sat', 'Sun', 'Mon', 'Tue', 'Wed');

    #  my $start = $weekdays{$day_name};

    foreach $key (sort keys %months) {
    #print(join(', ',sort keys %months),"\n");
        for ($n = 1; $n <= $months{$key}; $n++) {
            if ($k == 7) {
                $k = 0;
            }
            print "$array_of_days[$k] $key $n $year\n";
            $k++;
        }
    }
    $year++;
}