#!/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";
    }
}
                                                                                
##</code><code>##

for ($i=1;$i<90;$i++)

##</code><code>##

#!/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";
    }
}