Select Code to Download

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

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

print Dumper(\%data);