my ($X, $Y, $A, $B, $C, $D); while()