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