#!/usr/bin/perl -l

# http://perlmonks.org/?node_id=1170987

use strict;
use warnings;

my @month_name = qw(January February March April May June July August September October November December);

for my $start (0 .. 11)
  {
  my @wanted = (@month_name, @month_name)[$start .. $start + 11];
  print "@wanted";
  }