my @months = qw[ Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec ]; #### my @months = '',qw[ Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec ]; #### print "Today is in the month ",$month[$calendar_month-1],"\n"; #### sub get_month_name { my ($calendar_month) = @_; return $month[$calendar_month-1]; }