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);
[download]

my $perl_version( 5.12.4 );
print $perl_version;