sub rep_set{

	open(FILE, "Superior_seqs2.txt")
		||die;
	$/=">";

	my%hash=();
	my$hashref=\%hash;

	while(<FILE>){
		if($_ =~ /^(.+?)\((\d+)\)(.+)\n(.+)/){
			my$site=$1;my$count=$2;my$qiime=$3;my$seq=$4;
			$hashref -> {$seq}{$site}=$count;
		}else{
			print "ERROR!\n"
		}
	}
	open (TABLE, ">>OTU_TABLE.txt")||die; 
	open (REP,">>rep_set.txt")||die;

	my$seq_label=0;

	for my$seq_key(keys %hash){
		$seq_label++;
		print REP ">$seq_label\n$seq_key\n";
		print TABLE ">$seq_label\t";
		for my$site_key(keys %{$hash{$seq_key}}){
				my$counts="$hash{$seq_key}{$site_key}";
				#print "$counts\n";
			
				for(my$i=0;$i<=$counts;$i++){
					print TABLE "$site_key\t";
				}		
		}
		print TABLE "\n";
	}
	close FILE;close TABLE;close REP;
}