Select Code to Download

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