my %months;
@months{qw( jan feb mar apr may jun jul aug sep oct nov dec )} =
  ( 1 .. 12 );