my @list = (1, 2, 3, 4, 5);
print length join "", map{"1" x $_} @list; #prints 15