Select Code to Download

@a = (1, 2, 3); # works as expected
@a = 1, 2, 3;   # Equivalent to (@a = 1), 2, 3;

$d = ( @a = 1, 2, 3 );
print "$d\n";
print "@a\n";