my $month = 8;
printf '%s', substr('Aug'x12, $month*3, 3);