１次元配列の全文字列のバイト数出すにはどうすればいいだろう

foreach(@log){

$byte .= length($log($_));

}

で一応でるような気がするがあまりにも無駄が多い気がする