I think you should take advantage of Time::Piece to make it clearer. Why not use `$t-mday`, `$t->mon`, and `$t->year` here?