@anchor_day_week = qw(tuesday wednesday thursday friday saturday sunday monday)
                     [$year_anchor_day+1..6,0..$year_anchor_day];

##</code><code>##

push @anchor_day_week, splice @anchor_day_week, 0, $year_anchor_day;