$x = (1 + 3, 5 + 7);  # $x gets 12
$y = (pop @r, 1000);  # @r gets pop()ed, $y gets 1000

##</code><code>##

$a, $b = 1, 2;

##</code><code>##

$a, ($b = 1), 2;

##</code><code>##

foo(), bar(), blat() if bonk();

@a = (1,1,2,3,5,8,13);