my %month = map { $_ => 1 } qw(jan feb mar apr may jun jul aug sep oct nov dec);