my @months = qw[ Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec ];