Help for this page
my $aa=1,$bb=1,$cc=1,$dd=1;
my $aa=1; $bb=1; $cc=1; $dd=1;
my ($aa, $bb, $cc, $dd) = (1) x 4;