$s = join "", (map {$_ . (shift @arrOfJoiners)} @arrToJoin);