my $contigfile = "$contig.txt";
  open(CONTIG, $contigfile) 
  	or die (">Could not open $contigfile!\n$!");
  my $goodseq = <CONTIG>;
  $goodseq =~ tr[0-9\n ][]d;


#clear giant variable to free some memory????
#  $rawseq = '';