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