Mega Code Archive

 

Categories / Perl / Array

 

Months Of The Year

#!/usr/bin/perl use warnings; use strict; my $month = 3; print qw(January February March April May June July August September October November December)[$month];