use strict;

# Days start at 0, just like arrays
my $start_day = 6;
my $days = 7;
my @cnts = daycounts($start_day, $days);
for (0..6) {
 print "$_: $cnts[$_]\n";
}
sub daycounts {
 use integer;
 my $start_day = shift;
 my $days = shift;
 my $end_day = ($start_day + $days) % 7;
 my $compare = ($start_day <= $end_day)
  ? sub { my $num = shift; $start_day <= $num and $num <= $end_day }
  : sub { my $num = shift; $num <= $end_day or $start_day <= $num };
 my @adjust = map { $compare->($_)? 1 : 0 } 0..6;
 my $cnts = $days / 7;
 map { $cnts + $adjust[$_] } 0..6;
}