@month = split //, $DOB[0];
$digits_month = @month;