[Boston.pm] Odd printing problem

I'm sure this is something stupid, but it is beyond me.

Let me show you the snip of code, and then I'll explain what it's supposed
to be doing:

--------------------------------------------------------------------
...
1    foreach my $framID (@$arrayName) {
2        # print out the the famID and framID.
3        print FILE $famID.",$framID";
4        foreach my $trait (@batchOfTraits) {
5            # Print the comma delimiter
6            print FILE ",";
7            # Print the residual if one exists for this trait
8            # leave blank otherwise.
9            my $traitArrayName = "fullTraitIndex_$trait";
10          my $residual = '';
11          $residual = $$traitArrayName{$framID} if
($$traitArrayName{$framID});
12          print FILE $residual if ($residual);
13        }
14        print FILE "\n";
15
16    } # end foreach member in the family
...
----------------------------------------------------------------------

I know I'm using more IF's then needed (left over code from other attempts
to make this work), so don't worry about those.
This SHOULD be creating a file that looks a bit like this:
FamID, FramID, ###,###,###,###,###,###,###,###,###,###
FamID, FramID, ###,###,###,###,###,###,###,###,###,###

Blanks when a ### doesn't exist.
Example:
...
10,4555,0.2351,-0.9367,1.8465,,-0.4863,0.04876,1.0478,-0.083,,02846
127,80453,0.9475,1.9475,-0.9576,0.4657,0.9673,-0.0365,1.0845,-0.6835,0.3865,
1.04765
...

Instead, I'm getting something that looks like this:
...
,,,,,,,,0.8288431
,,0.96724679727
,,,.0947472244
,,0.1666597.2314
10,5563,,,,,,,,,,
,,0.82328890965
,,-0.2358730.1027
,,1.4295032.910856
,,0.0867590.5631
,,0.379829-0.3758
,,-0.296481.3281
,,-0.913960.4475

...

so you see that there are a few major problems:
 - The FamID and Fram ID very rarely show up
 - There is rarely the full set of 10 ###'s after the FamID and FramID
 - The decimal place should never go beyond 5 places, so some weird sort of
number merging is going on.

I have tested the rest of this loop and script by commenting out line 11 and
assigning $trait to $residual.
With this test, I get the exact format that I want.  Everything looks great
(except all of the ###'s are replaced with the trait being examined).

Any ideas on what's going on?
Cause I'm lost.

Thanks a lot for any help.
--Alex