my ($aa, $bb, $cc, $dd) = (1) x 4;