Array Perl

  1. Home
  2. Perl
  3. Array
  4. 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];