% perl -le '($_ = ($x = (4, 5, 6))); print($_)'
6