Are you trying to get the ordinal ASCII values for the string? Meaning, 65 for "A" and 104 for "h"? If so, then try this:

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