use Time::Piece;
use strict;
my @months = qw( 01 02 03 04 05 06 07 08 09 10 11 12 );
  my $t = localtime;
  print localtime->month(@months);