print OUTFILE "\t" if ($count > 0);

##</code><code>##

open (OUT, ">$outfile" ) or die "Cannot open $outfile :$!";