my @abbr = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
  print "$abbr[$mon] $mday";
  # $mon=9, $mday=18 gives "Oct 18"