`printout`

          for (@chain) { 
            $chars .= $_->[$i];
          }

        $chars = join "", map $_->[$i], @chain;