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