Select Code to Download

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

$a, $b = 1, 2;

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

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

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