…
my @l = ("abc", "cd", "e", "fg", "hi", "hello world");

say length pack("A*" x scalar @l, @l);

__END__

karl@h3002993:~/src/perl$ ./pack.pl 
21