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