You are doing a bunch of unusual things in your code. The one that realy jumps out at me is you keep taking a reference to a scalar, for example \$Tid in $Tids{\$Tid}{a}="----------";

You can try getting rid of the backslash, but I doubt that will solve your problem completely. Here is what I recommend:

• Show a few relevant lines of your input file.
• Show the exact output you expect to get.
• Use Data::Dumper to show us the contents of your hash (Tip #4 from Basic debugging checklist).