my %month;
for my $language (keys %month_names) {
  my $n=0;
  $month{$_} = $month{uc $_} = $month{lc $_} = $n++ for @{$month_names{$language}};
}