Максим, у Вас не появилось желание узнать, почему вариант с sprintf() так фантастически быстро работает? perl -e 'my @test = ("a", "b"); warn sprintf("%s", @test);' a at -e line 1.