Для целочисленных  >= 0 значений в массиве<br><div><br></div><div>$ perl -le 'print length join "", map 1 x $_, 1, 2, 3' </div><div>6</div><div><br></div><br>-- <br>Alexander<br>