perl -e ' print  scalar split (//,$ARGV[0]),"\t", (sort    split (//,$ARGV[0])),"\n"' TGAC