Select Code to Download

use warnings;
use List::Util ();
my $reduced = List::Util::reduce { $a + $b } 1,2,3,4;