eval join ('*', @list);

##</code><code>##

$x = foldl { shift() + shift() } 0, [1..6]; # 21