use Data::Dumper;
print Dumper \%hash_geno_group;