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}; }