Hello mitabrev,

In case you do not mind using another module Date::Manip see bellow below:

#!/usr/bin/perl
use strict;
use warnings;
use Date::Manip;
use feature 'say';

# my $tz = new Date::Manip::TZ;
say UnixDate(DateCalc(
         ParseDate('yesterday'),
         $_ . " days later") , "%m-%d-%y") for (1..7);

__END__

$ perl test.pl
03-11-19
03-12-19
03-13-19
03-14-19
03-15-19
03-16-19
03-17-19
[download]

Update: Removing unnecessary line of code.

Hope this helps, BR.