use List::Util qw /reduce/;
say reduce { $a + length $b } 0, @many_strings;