1 2 3 4
#自分で書く必要はない use List::Util qw/reduce/; print reduce { $a + $b } (1 .. 10); print reduce { $a . $b } ("a", "b", "c");
1
55abc