Select Code to Download

given ($year_anchor_day){
    when(0){@anchorday_week = qw(tuesday wednesday thursday friday sat
+urday
...
    when(6){@anchorday_week = qw(monday tuesday wednesday thursday fri
+day
    saturday sunday);}
}

@anchorday_week = qw(tuesday wednesday thursday friday saturday sunday
+ monday);
my @tmp = splice @anchorday_week, 0, $year_anchor_day;
push @anchorday_week, @tmp;

my $nbdays = ($diff_to_doomsdates + $year_anchor_day) % 7;
return qw(tuesday wednesday thursday friday saturday sunday monday)[$n
+bdays];