$digits_month = length $DOB[0];