aanoaa · December 12, 2011 03:37
diff --git a/a.pl b/a.pl
 use 5.010;
 use List::Util 'reduce';
 my @numbers = qw/1 2 3/;
 my $sum1 = reduce { $a + $b } (0, @numbers);
 my $sum2 = reduce { $a + $b } (10, @numbers);
 say $sum1;
 say $sum2;

 __DATA__
 6
 16
	use 5.010;
	use List::Util 'reduce';
	my @numbers = qw/1 2 3/;
	my $sum1 = reduce { $a + $b } (0, @numbers);
	my $sum2 = reduce { $a + $b } (10, @numbers);
	say $sum1;
	say $sum2;

	__DATA__
	6
	16