# set numeric values
my $month = 
my $year = 
my $monthsback =

# subtract from current month
$month -= $monthsback;

# convert to proper range of values
if($month <= 0){$year--}
$year += int($month/12);
$month = $month%12;
if ($month == 0){$month = 12}