my $i=0;
my %month = map {$_=>$i++} qw/Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec/;