my ($Dy, $Dd) = (0,0);