sub previous_month {
    my ($month, $year) = @_; # month = 1..12
    if (--$month < 1) {
        $month = 12;
        $year--;
        }
    ($month, $year);
    } # previous_month

say for previous_month (10, 2018);