`printout`

      sub printout {
        for ($i=0;$i<@{$chain[3]};$i++){
          for (@chain) { 
            next unless defined;
            if ($ct_scanout ) {
              $_->[$i] =~ s/0/L/g; 
              $_->[$i] =~ s/1/H/g;
            } elsif ($ct_scanout==0) {
              $_->[$i] =~ s/X/0/g;
            }
          }
          my @chars = map $_->[$i], @chain;
          print OUTFILE 
            $ct_scanout ? "\n(ct_so\n" : "\n(ct_si  $ct_si{tdi}\n",
            join("", @chars), "\n )";
        }
        $ct_scanout=0 if $ct_scanout;
      }
17 lines become 13