my $atleastone = 1;
  while ($atleastone) {
    $atleastone = 0 ;

    my @l = () ;
    foreach my $op (@handles) {
      my $c2 ;
      ++$atleastone and (undef, $c2) = split if defined($_ = <$op>) ;   
      push @l, $c2 || "0" ;
    } ;
    print OUTFILE join("\t", @l), "\n" ;
  } ;

##</code><code>##

  my $atleastone = 1;
  while ($atleastone) {
    $atleastone = 0 ;

    my $l = '' ;
    foreach my $op (@handles) {
      my $c2 ;
      ++$atleastone and (undef, $c2) = split if defined($_ = <$op>) ;   
      $l .= ($c2 || "0") . "\t" ;
    } ;
    chop $l ; # Discard trailing "\t"
    print OUTFILE "$l\n" ;
  } ;

##</code><code>##

  my $atleastone = 1;
  while (defined($atleastone)) {
    $atleastone = undef ;

    my $l = '' ;
    foreach my $op (@handles) {
      my $c2 ;
      ($atleastone, $c2) = split if defined($_ = <$op>) ;   
      $l .= ($c2 || "0") . "\t" ;
    } ;
    chop $l ; # Discard trailing "\t"
    print OUTFILE "$l\n" ;
  } ;