余分なループを除いてベンチ取り直してみた。(不慣れですんません)
perldoc perlstyle の出力chompしてjoin ''して1個の文字列にして、
そこからカンマの個数をカウントしてみた。
map、foreachループ、foreach修飾子はどれも数%の差でほぼ同じ。
>>906のコードはそれらの半分くらいで一番遅かった(でもこのコードちょっと好き)。
trは一番速かった。mapやforeachなどの2.5倍ほど。

なるほど文字数カウントするならtr使うに限るな!!