my $month_name =
  (qw/Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec/)[$month];