#!/usr/bin/perl
# get current Date from MySql
use warnings;
use strict;
use Date::Manip;
                                                                                
my @city=("C","K","D");
my $j;

for ($j=0;$j<3;$j++)
{
    my $date= ParseDate("today");
                                                                                
    my $i;
                                                                                
    # either start from 0, or use <=
    for ($i=1;$i<=90;$i++)
    {
        $date= DateCalc($date, "+ 1 day");
        $date= UnixDate($date, '%Y-%m-%d');
        print "Date: $date, city: $city[$j]\n";
    }
}