use DateTime; use DateTime::Duration; my $start_of_week = DateTime->now->truncate( to => 'week' ); my $one_day = DateTime::Duration->new( days => 1 ); print +($start_of_week + $one_day * $_)->strftime( "%F\n" ) for ( 0..4 );