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;