use Data::Dumper;

use Date::Simple;
#initializing the variable
$a[0]="2012-08-16";
$i=1;
$dateplus=$a[0];
#Getting next 3 dates
while($i<=3)
{
 $dateplus = Date::Simple->new($dateplus); 
 $dateplus++; 
 $a[$i]=$dateplus;
 $i++;
}

#-----Saving the next week dates in a hash table----------
%datesofnextWeek_var1 = ( "1"    => ["Sunday",$a[0]], 
                          "2"    => ["Monday",$a[1]], 
                          "3"    => ["Tuesday",$a[2]],
                          "4"    => ["Wednesday",$a[3]],
                          
          );

print Dumper %datesofnextWeek_var1;
@test=@{$datesofnextWeek_var1{2}};
print $test[1];