my $sum = 0;
$sum += $_ for @list;


##</code><code>##

print sub { (map {splice @_, 0, 2, $_[0] + ($_[1] // 0)} @_)[-1] }-> (1,2,3,4,5);