Select Code to Download

  my $atleastone = 1;
  while ($atleastone) {
...
    } ;
    print OUTFILE join("\t", @l), "\n" ;
  } ;

  my $atleastone = 1;
  while ($atleastone) {
...
    chop $l ; # Discard trailing "\t"
    print OUTFILE "$l\n" ;
  } ;

  my $atleastone = 1;
  while (defined($atleastone)) {
...
    chop $l ; # Discard trailing "\t"
    print OUTFILE "$l\n" ;
  } ;