#!/usr/bin/perl
# get current Date from MySql
use warnings;
use strict;
use Date::Manip;
                                                                                
my @city=("C","K","D");
                                                                                
my $date= ParseDate("today");
                                                                                
# using a Perl-style (not C-style) loop helps prevent
# the error seen in the earlier loop construct
for my $i ( 1 .. 90 )
{
    $date= DateCalc($date, "+ 1 day");
    $date= UnixDate($date, '%Y-%m-%d');
                                                                                
    for my $j ( 0 .. 2 ) {
        print "Date: $date, city: $city[$j]\n";
    }
}