use List::Util qw /reduce/; say reduce { $a + length $b } 0, @many_strings; #### use v5.38; use List::MoreUtils qw/reduce_0/; my @many_strings = ("abc", "cd", "e", "fg", "hi", "hello world"); say reduce_0 { $a + length $b } @many_strings;