@seqout=unpack("C*",$seq);
print join(",",@seqout),"\n";