-if (defined $options{snps} and @{$options{snps}}) {
- for my $snp_i (0..$#snp_order) {
- for my $valid_snp (@{$options{snps}}) {
- if ($snp_order[$snp_i]{rsid} =~ /(rs)?\Q$valid_snp\E/) {
- $valid_snps{$snp_order[$snp_i]{rsid}} = $snp_i;
- last;
- }
- }
- }
-}