my ($id, $sum, $haploStr) = split ('\t',$_);
        push @{$data{$id}{$sum}}, \$haploStr;

##</code><code>##

        my ($id, $sum, @haploStr) = split ('\t',$_);
        push @{$data{$id}{$sum}}, \@haploStr;

##</code><code>##

print Dumper(\%data);