sub f{
#234567890#234567890#234567890#234567890#234567890#234567890#23456
use Time'Piece;(Time'Piece->strptime("25Dec".pop,"%d%b%Y"))->_wday
}