my ( $MM, $DD, $YY, $YYYY );