my $today = today;
my @names = map { ($today + $_)->strftime("%A")} 0 .. 6;

my $dow = today->day_of_week;
my @in_order = map {$_ % 7} $dow .. $dow + 6;

say "localtime is: " . localtime;
say $in_order[$_], ' ',  $names[$_] for 0 .. $#in_order;