Select Code to Download

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;