$month_names{'English abbr'} = [ map substr($_, 0, 3),
                                 @{ $month_names{English} } ];