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

##</code><code>##

my $aa=1;
$bb=1;
$cc=1;
$dd=1;

##</code><code>##

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