While all the above posts are correct, you're not understanding what "split" does...

what you want is the substitution operator:

 
  s/T/,/;
[download]

(Essentially you're trying to substitute the 'T' for the ',') then just print, you don't even need the $a variable.

cheers!