$mon = (qw/Jan Feb Mar ... Nov Dec/)[$mon];