use strict;
use Date::Calc qw(Date_to_Time Time_to_Date);

my @current_date = (2023,5,17, 1,0,0);
for my $i (1..10) {
    my $time = Date_to_Time(@current_date);
    my @date = Time_to_Date([$time]);
    print join(",",@date),"\n";
}