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