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