my $len;
$len += length $_ for @many_strings;
say $len;

##</code><code>##

use List::Util qw/sum/;
say sum map {length $_} @many_strings;

##</code><code>##

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