for my $index ( 0 .. $#snp_bins ){
  push( @{$data{HG00554}[$snp_bins[$index]]}, $snps[$index] );
}