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