$t->_wday # 0 = Sunday #### $t->day_of_week # 0 = Sunday #### *day_of_week = \&_wday;