You could make the input case insensitive

my %months;
for my $language (keys %month_names) {
  @months{map(lc $_, @{$month_names{$language}})} = @month_numbers;
}

sub get_month_number {
  my $month = lc shift;
  return $months{$month};
}
[download]