D:\PerlMonks>test3.pl
DEBUG:  -----------------------------
DEBUG:  $yrcr.$mocr = [2004.08]
DEBUG:      $yr.$mo = [2014.12]
DEBUG:  -----------------------------
DEBUG:  $yrcr.$mocr = [2004.08]
DEBUG:      $yr.$mo = [2014.12]
DEBUG:  -----------------------------
DEBUG:  $yrcr.$mocr = [2004.08]
DEBUG:      $yr.$mo = [2014.12]
DEBUG:  -----------------------------
DEBUG:  $yrcr.$mocr = [2004.08]
DEBUG:      $yr.$mo = [2014.12]
DEBUG:  -----------------------------
DEBUG:  $yrcr.$mocr = [2004.08]
DEBUG:      $yr.$mo = [2014.12]
DEBUG:  -----------------------------
DEBUG:  $yrcr.$mocr = [2004.08]
DEBUG:      $yr.$mo = [2014.12]
DEBUG:  -----------------------------
DEBUG:  $yrcr.$mocr = [2004.08]
DEBUG:      $yr.$mo = [2014.12]
DEBUG:  -----------------------------
DEBUG:  $yrcr.$mocr = [2004.08]
DEBUG:      $yr.$mo = [2014.12]
DEBUG:  -----------------------------
DEBUG:  $yrcr.$mocr = [2004.08]
DEBUG:      $yr.$mo = [2014.12]
DEBUG:  -----------------------------
DEBUG:  $yrcr.$mocr = [2004.08]
DEBUG:      $yr.$mo = [2014.12]
DEBUG:  -----------------------------
DEBUG:  $yrcr.$mocr = [2006.02]
DEBUG:      $yr.$mo = [2014.12]
DEBUG:  -----------------------------
DEBUG:  $yrcr.$mocr = [.]
DEBUG:      $yr.$mo = [2014.12]

D:\PerlMonks>