Help for this page

Select Code to Download


  1. or download this
    my @months = qw( January February March April May June July August Sep
+tember October November December );

...
    my $i = shift;  
    print join(',',  @months[$i-2, $i-1, $i]), "\n";
}
  2. or download this
    February,March,April
November,December,January
October,November,December